сортировать книгу по первой букве имени каждого листа?

[sonata]

Есть excel-файл c огромным кол-вом листов.
Необходимо сортировать данную книгу по первой букве имени каждого листа.
Можно такое осуществить?

[Calvin]

RayShade давал хороший совет - создать невидимый листбокс, а потом можно отсортировать имена листов в нем и переставить листы с учетом сортировки.

[Vitaly1]

Это не смотрите, смотрите алгоритм ниже в топике, тут неверно!
Sub nn()
n = Application.ThisWorkbook.Worksheets.Count
Workbooks(ThisWorkbook.Name).Activate
For j = 1 To n - 1
For i = 1 To n
If Sheets(i).Name < Sheets(1).Name Then
Sheets(i).Select
Sheets(i).Move Before:=Sheets(1)
End If
Next i
Next j
End Sub

Вот как

[RayShade]

2 Vitaly1

Способ хороший, но очень медленный. На действительно большом кол-ве личтов все вмрет просто.

[Vitaly1]

Пардон господа! были ощибки в алгоритмах, поправил!
Rayshade -Тогда ускорим так:

Sub nn()
Dim v As Variant, flag As Variant
Workbooks(ThisWorkbook.Name).Activate
Do
flag = False
namelist = Sheets(1).Name
For Each v In Workbooks(ThisWorkbook.Name).Worksheets
If v.Name < namelist Then
Sheets(v.Name).Move Before:=Sheets(1)
flag = True
End If
namelist = v.Name
Next v
Loop Until flag = False

End Sub

[corgi]

а я бы сделал так

Код: Выделить всё

Sub dd()
Dim i As Integer, j As Integer, n As Integer
Dim st As String
ReDim mas(ThisWorkbook.Sheets.Count) As String
n = ThisWorkbook.Sheets.Count
For i = 1 To n
    mas(i) = ThisWorkbook.Sheets(i).Name
Next
For j = 2 To n
    st = mas(j)
    i = j - 1
    Do While i > 0 And mas(i) > st
        mas(i + 1) = mas(i)
        i = i - 1
    Loop
    mas(i + 1) = st
Next
For i = 1 To n
    ThisWorkbook.Sheets(mas(i)).Move Before:=Sheets(i)
Next
End Sub


[Vitaly1]

Corgi -

Мне кажется, что будет медленнее чем у меня!
Я даже уверен в этом!

[corgi]

я бы не был так уверен
ps можно конечно в моем коде сделать все без массива(тогда мой код 100% быстрей), но с массивом мне кажется просто правильней для написания