Как изменить код VBA для сортировки, минуя метод "Debug.Print"? - VBA

Формулировка задачи:

Здравствуйте! Прошу помощи. Есть интересная тема Сортировка двумерного массива, срочно Исправил в коде (автор: gaw) метод "Print" на "Debug.Print", картинка ниже. Теперь хочу, чтобы всё напрямую отображалось на "Лист 1" в Эксель, без "Debug.Print" Как исправить код? Как правильно указать смещение, желательно, чтобы результаты находились не параллельно исходнику, а вертикально, т. е. на несколько строк ниже исходника.
Sub gavSort()
Dim a(6, 6), b(6, 6)
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 10) - 5
'Cells(i, j) = a(i, j) 'пытался выносить на Лист 1, получилось!
b(i, j) = a(i, j)
'b(i, j) = Cells(8, j) 'пытался выносить на Лист 1, не получилось!
Next j
Debug.Print
Next i
 
For j = 1 To 6
  For i = 1 To 6
    For k = i To 6
     If b(i, j) > b(k, j) Then
     tmp = b(i, j): b(i, j) = b(k, j): b(k, j) = tmp
     End If
    Next k
 Next i
Next j
Debug.Print
For i = 1 To 6
For j = 1 To 6
Debug.Print Tab(5 * j); a(i, j);
Next j
 
For j = 1 To 6
Debug.Print Tab(35 + 5 * j); b(i, j);
Next j
Debug.Print
Next i
End Sub
 
'  4    1    0   -2   -4    2        -5   -4   -4   -5   -5   -3
' -1    2    0    3   -5   -3        -5   -2   -2   -4   -5   -3
' -5   -4   -2   -4   -5    0        -1    0   -1   -2   -4    0
'  1    0    3   -5   -4    1        -1    1    0   -1   -4    0
' -1   -2   -4    2    4    0         1    2    0    2   -1    1
' -5    2   -1   -1   -1   -3         4    2    3    3    4    2

Код к задаче: «Как изменить код VBA для сортировки, минуя метод "Debug.Print"? - VBA»

textual
Sub gavSort()
Dim a(6, 6), b(6, 6)
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 10) - 5
Cells(i, j) = a(i, j)
b(i, j) = a(i, j)
Next j
Next i
 
For j = 1 To 6
  For i = 1 To 6
    For k = i To 6
     If b(i, j) > b(k, j) Then
     tmp = b(i, j): b(i, j) = b(k, j): b(k, j) = tmp
     End If
    Next k
 Next i
Next j
 
For i = 1 To 6
   For j = 1 To 6
       Cells(i, j + 8) = b(i, j)
    Next j
Next i
End Sub

5   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ