сортировка варианта?

Question

Может ли кто-нибудь помочь мне с сортировкой варианта

   var_a = activesheet.range("A3:AL" & lastrow ).value 

   var_a 1 column has some numbers
   var_a 2 column has dates 2/22/2011 like these
   var_a 3 column some other and so on

Теперь весь вариант var_a должен быть отсортирован в порядке возрастания с учетом столбца 2 с датами

Я знаю способ работы с листами, но никогда не работал над вариантом, да, я могу отсортировать лист, а затем получить содержимое листа в var_a - это одно из решений, но сортировка листа занимает от 30 до 40 секунд, что нежелательно, поэтому я хотел отсортировать вариант вместо листа.

Пожалуйста, помогите мне с этим Спасибо

Answer 1

Niko

Вместо того, чтобы реализовывать процедуру сортировки внутри варианта, вы должны использовать для этого собственную сортировку Excel. Если вы боретесь с вашим текущим файлом (я предлагаю вам сначала попытаться отсортировать текущие данные с помощью Ручной расчет ), тогда обходной путь будет

• получить ваш вариант из вашего текущего файла
• сбросить вариант в новую книгу (вариант закрытия текущего файла)
• запустить сортировку и затем либо создать новый отсортированный вариантный массив, либо обновить существующий вариантный массив
• сбросить отсортированный вариантный массив обратно в исходный файл (или при необходимости манипулировать далее)

Answer 2

Вот отличное место, чтобы подобрать алгоритм сортировки vb6 в соответствии с вашими потребностями: http://www.codeguru.com/vb/gen/vb_misc/algorithms/article.php/c14627

И просто помните, что вам может понадобиться обернуть переменные в функции преобразования (например, cint (),cstr () и т. д.), если вы хотите, чтобы они сортировались правильно.Например, вы не хотите сортировать 1000 и 20 как строки, потому что сначала будет помещено 1000.