[已解决]excel工作表能按自定义排序吗？

cyy1905

我一个工作簿中了多个工作表，比如有5个工作表，工作表名为中文，分别是“广西、北京、湖南、广东、天津”，现在如果我要按我自己定好的顺序排序，比如工作表要按“北京、天津、广东、广西、湖南”这个顺序排序，能通过写VBA来实现吗？一般常见的工作表排序都是按升序或降序之类的，而没有按自定义顺序来，工作表多的时候要手工排序就比较耗时了。请各位高手指点，谢谢！

最佳答案

月排行榜 / 总排行榜

青城山苦丁茶

2015-11-14 22:51

i% = Sheets.Count
On Error Resume Next
For Each tmp In Array("a", "b", "c", "d", "e", "f", "g", "h")  ' 把你的表名顺序写在这里，此处暂为abcdefgh
    t = Sheets(tmp).[a1]
    If Err = Empty Then Sheets(tmp).Move after:=Sheets(i) Else Err.Clear
Next

跳转到最佳答案楼层

青城山苦丁茶

i% = Sheets.Count
On Error Resume Next
For Each tmp In Array("a", "b", "c", "d", "e", "f", "g", "h")  ' 把你的表名顺序写在这里，此处暂为abcdefgh
    t = Sheets(tmp).[a1]
    If Err = Empty Then Sheets(tmp).Move after:=Sheets(i) Else Err.Clear
Next

cyy1905

青城山苦丁茶 发表于 2015-11-14 22:51
i% = Sheets.Count
On Error Resume Next
For Each tmp In Array("a", "b", "c", "d", "e", "f", "g", "h ...

太好了，解决大问题了，谢谢！