[已解决]关于工作表的排列

木易金

用vba排列工作表标签

最佳答案

月排行榜 / 总排行榜

wayy

2011-9-20 15:16

Sub wayy()
Dim arr
Dim i As Long
arr = Sheets(1).Range("A1", [a65536].End(xlUp))
For i = 1 To UBound(arr)
　Sheets(arr(i, 1)).Move after:=Sheets(Sheets.Count)
Next
End Sub

可以试一下这个代码，工作表名称放到第一个工作表A列里面，排好顺序后运行代码即可。

跳转到最佳答案楼层

wayy

Sub wayy()
Dim arr
Dim i As Long
arr = Sheets(1).Range("A1", [a65536].End(xlUp))
For i = 1 To UBound(arr)
　Sheets(arr(i, 1)).Move after:=Sheets(Sheets.Count)
Next
End Sub

可以试一下这个代码，工作表名称放到第一个工作表A列里面，排好顺序后运行代码即可。

木易金

ok运行顺利