массивы excel

Ответ от Oler[гуру]
вот тебе макрос сортировки на листе в первую строчку вбей любые цифры- он тебе их отсортирует по возрастанию Sub Meigas() Dim mas(), newRow As Integer, i As Integer, t As Single, noChange As Boolean mas = Application.Transpose(Application.Transpose(Range([A1], [A1].End(xlToRight)))) newRow = 1 Do Until noChange noChange = True For i = 2 To UBound(mas) If mas(i - 1) > mas(i) Then t = mas(i): mas(i) = mas(i - 1): mas(i - 1) = t: noChange = False Next newRow = newRow + 1 Cells(newRow, 1).Resize(, UBound(mas)).Value = mas Loop остальное написать - мелочь