Страницы: 1
RSS
Сортировка диапазонов
 
Доброго времени суток!  
Создал макрос при помощи макрорекордера:  
 
Sub Макрос1()  
   Range("A3:AX350").Select  
   Selection.Sort Key1:=Range("AH3"), Order1:=xlAscending, Key2:=Range("C3") _  
       , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _  
       False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _  
       :=xlSortNormal  
   ActiveWindow.SmallScroll Down:=-252  
   ActiveWindow.SmallScroll ToRight:=-10  
End Sub  
 
но получил не то, что планировалось, а именно все пустые строки после сортировки появляются в верху таблицы, а хотелось бы наоборот. Подскажите, как можно это исправить.  
СПАСИБО.
 
{quote}{login=The_Prist}{date=04.12.2009 10:11}{thema=}{post}А наоборот как? либо по возрастанию - xlAscending - пустые вверху, либо по убыванию - xlDescending - пустые внизу...  
Или хочеться пустые внизу, но при этом по возрастанию?{/post}{/quote}  
 
Да именно это и хотел получить, пустые внизу, а отсортированные вверху
 
{quote}{login=The_Prist}{date=04.12.2009 10:24}{thema=}{post}Попробуйте так  
 
Sub Макрос1()  
Range("A3:AX350").Sort Key1:=Range("AH3"), Order1:=xlDescending, Key2:=Range("C3"), Order2:=xlDescending  
Range("A3:AX350").SpecialCells(xlCellTypeVisible).Sort Key1:=Range("AH3"), Order1:=xlAscending, Key2:=Range("C3"), Order2:=xlAscending    
End Sub  
 
Если в диапазоне только значения и нет формул и прочего, то для надежности можно вместо xlCellTypeVisible использовать xlCellTypeConstants{/post}{/quote}  
 
В сортируемых диапазонах производится расчетдат по формулам. Пока все выводится по прежнему.
 
Файл с макросом <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]
 
прошу прощения, забыл за архивировать
 
{quote}{login=The_Prist}{date=04.12.2009 11:09}{thema=}{post}Я заметил. Ладно. По столбцу АН отсортировать не получится, т.к. он сплошь из формул, а они сортировке не поддаются. Хотите отсортировать - копируйте столбец АН куда-нибудь правее за пределы таблицы как значения, и уже по этому столбцу сортируйте.{/post}{/quote}  
 
Ясно. Огромное СПАСИБО за помощь.
Страницы: 1
Читают тему
Наверх