如果我的 Excel 文档中有 6 个工作表,按以下顺序命名和排列:O1、O2、O3、O1_#2、O2#2、O3#3
是否可以编写一个宏来更改这些工作表的顺序?
这是我正在寻找的序列:
O1、O1#2、O2、O2#2、O3、O3#2
Thanks
如果我理解正确的话,您需要按字母顺序对工作表进行排序:
Sub SortSheets()
Dim shNames As Collection
Dim i As Long, j As Long
Dim temp As String
Dim sh As Worksheet
Set shNames = New Collection
'add sheet names in collection
For Each sh In ThisWorkbook.Worksheets
shNames.Add sh.Name, sh.Name
Next sh
'bubble sort
For i = 1 To shNames.Count - 1
For j = i + 1 To shNames.Count
If shNames(i) > shNames(j) Then
temp = shNames(j)
shNames.Remove j
shNames.Add temp, temp, i
End If
Next j
Next i
' move sheets
For i = shNames.Count - 1 To 1 Step -1
Worksheets(shNames(i)).Move Before:=Sheets(1)
Next i
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)