如何按拼音顺序排列中文工作表标签？

作者：绿色风分类：时间：2022-08-17 浏览：75

楼主 kevinchengcw	Q：如何将工作表的中文标签按照拼音顺序排列，以便于查找呢？ A：打开要排序的工作表，按Alt+F11进入VBA编辑器，插入模块后，拷贝入下述代码并运行即可： Sub 工作表标签按拼音排序() Dim N As Integer Dim Ws As Worksheet Application.ScreenUpdating = False Set Ws = Worksheets.Add For N = 1 To Worksheets.Count Ws.Cells(N, 1) = Worksheets(N).Name Next N Ws.Columns("A:A").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal For N = Ws.[a65536].End(3).Row To 1 Step -1 If Worksheets(1).Name <> Ws.Cells(N, 1).Value Then Worksheets(Ws.Cells(N, 1).Value).Move Before:=Worksheets(1) Next N Application.DisplayAlerts = False Ws.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
2楼亡者天下	过来学习一下
3楼初学者2012	学习一下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表