Сортировка листов в книге - Полезные приёмы - VBA - Готовые решения$

= Мир MS Excel/Готовые решения

Главная » Готовые решения » VBA » Полезные приёмы

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

	02.10.2013, 23:40


Sub SortSheetsByName() Dim wsh As Worksheet, i As Long With CreateObject("System.Collections.ArrayList") For Each wsh In ThisWorkbook.Worksheets .Add wsh.Name Next .Sort For i = 0 To .Count - 2 Sheets(.Item(i + 1)).Move , Sheets(.Item(i)) Next End With End Sub
1 2 3 4 5 Добавил: nilem \|
Просмотров: 3837 \| Рейтинг: 5.0/2

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]