Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

сортировка массива данных

Автор sergo44441, 30.06.2011, 20:39

« назад - далее »

sergo44441

Добрый вечер, уважаемые знатоки. С помощью идеи, которую мне сдесь дали, удалось существенно убыстрить расчет показателей, хотелось бы еще ускорить. Во вложенном примере я создал таблицу продаж по магазинам, в макросе занес эти данные в массив, а можно ли этот массив отсортировать по показателям: сначала торговая точка, потом товар, потом дата?
Не торопись, и все успеешь намного быстрее

nilem

А не проще будет макросом отсортировать диапазон на листе, а потом перенести его в массив?
Имхо, сортировка 2-мерного массива по 3-м параметрам в коде - это надо какую-то навороченную функцию - интересно, можно попробовать, но сложно.

kuklp

Существенно ускорить макрос можно за счет уменьшения к-ва обращений к ячейкам листа(ну и совет Николая):
Sub массив()
    Dim A
    Cells(1).CurrentRegion.Sort Key1:=[B2], Order1:=1, Key2:=[C2] _
                , Order2:=1, Key3:=[A2], Order3:=1, Header:=0
    A = Cells(1).CurrentRegion.Value
    Stop
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771