TOP

Сортировка листов в книге

Описание

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


VBA код для макроса

Откройте меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor) , вставьте модуль VBA (меню Insert - Module ) и скопируйте туда этот текст:

  1. Sub SortSheets()  
  2.   'moonexcel.com.ua  
  3.   Dim I As Integer, J As Integer  
  4.   
  5.     For I = 1 To Sheets.Count - 1  
  6.         For J = I + 1 To Sheets.Count  
  7.             If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then  
  8.                 Sheets(J).Move Before:=Sheets(I)  
  9.             End If  
  10.         Next J  
  11.     Next I  
  12.       
  13.     MsgBox " Вкладки были отсортированы от А до Я "  
  14. End Sub  

Теперь этот макрос можно запустить через меню Сервис - Макрос - Макросы (Tools - Macro - Macros) , и быстро отсортирует все листы в текущей книге.

Статьи по теме: