Как объявить двумерный массив и сделать его сортировку, имея моё начало кода? - VBA

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

Здравствуйте! Прошу помощи. Не знаю, как объявить двумерный массив и сделать его сортировку, исходя из кода ниже. Именно такое начало. Как быть?

                    Листинг программы
                
 
                        
                          
                    
Sub massSort()
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
ReDim c(1 To 6, 1 To 5)
c = Array(9, -8, 4, 28, -10, vbCr & _
          4, -13, -5, 6, 19, vbCr & _
         17, -3, 1, -3, -8, vbCr & _
         -4, -18, 0, 9, 15, vbCr & _
          2, 11, -7, 16, -24, vbCr & _
          39, -21, -7, -18, 9)
'Cells(1, 1).Resize(6, 5) = c
End Sub

Решение задачи: «Как объявить двумерный массив и сделать его сортировку, имея моё начало кода?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Sub tt()
    Dim arr1
    Dim arr2(1 To 3, 1 To 3)
    Dim i&, x&, y&
 
    arr1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    i = -1
    For x = 1 To 3
        For y = 1 To 3
            i = i + 1
            arr2(x, y) = arr1(i)
        Next
    Next
 
    [a1].Resize(3, 3) = arr2
End Sub

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы