excel将工作表按笔画或拼音顺序排序
发布时间：2022-12-31 17:18:00
Excel中没有内置工作表排序的命令或方法，我们可以用VBA来实现工作表排序。下面的VBA代码可以将工作表按其名称的拼音或笔画的顺序来排序，同时还可以指定升序或降序。
Sub SortWorksheets()
Dim SortOrd, SortM, ActiveSht As String
Dim NumSht()
ActiveSht = ActiveWorkbook.ActiveSheet.Name
On Error Resume Next
n = Sheets.Count
If n = 1 Then
MsgBox "只有一张工作表，无需排序！"
End
End If
ReDim NumSht(1 To n)
For i = 1 To n
NumSht(i) = Sheets(i).Name
Next
‘在此设置工作表排序方法和排序方向
‘SortM = xlPinYin为按拼音顺序， SortM = xlStroke为按笔画顺序
‘SortOrd = xlAscending为升序，SortOrd = xlDescending为降序
SortOrd = xlAscending
SortM = xlPinYin
Set sht = Sheets.Add
sht.Move after:=Sheets(n + 1)
sht.Visible = False
With sht.Range("A1:A" & n)
.NumberFormat = "@"
.Value = Application.WorksheetFunction.Transpose(NumSht())
.Sort Key1:=sht.Range("A1"), Order1:=SortOrd, SortMethod:=SortM
NumSht() = Application.WorksheetFunction.Transpose(.Value)
End With
For i = 1 To n
Sheets(NumSht(i)).Move Before:=Sheets(i)
Next
Application.DisplayAlerts = False
sht.Delete
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets(ActiveSht).Select
End Sub
代码中的SortOrd变量指定工作表的排序次序，xlAscending为升序，xlDescending为降序。SortM变量指定工作表的排序方法，xlPinYin指定工作表按拼音顺序排序，xlStroke为按笔画顺序排序。在代码中进行相应的更改即可按不同的方法和次序进行排序。
0
投稿猜你喜欢
解决方案：1、拖动鼠标选中即将建立的图表的数据源2、在菜单栏上执行：插入--柱形图，选择一种合适的样式3、我们看到已经插入了一个图表，我们鼠- 根据 MacRumors 论坛、苹果支持社区、推特和 Reddit 上的多份报告，一些运行 11.1 和 11.2 版本的 macOS Bi
- 最近有位win10系统用户在使用电脑的时候，发现桌面右下角总是会弹出一些window安全警报的提示，甚至有时候打开文件的时候也会弹出提示，用
- Win7电脑在登录LOL的时候出现登入时遇到了一个预期之外的错误怎么办？虽然微软已经出了许多的新版操作系统，但是对于一些硬件配置较低的用户还
- 使用Windows8.1的5个超级按钮可执行常用操作，如搜索网络和电脑、打印文档以及通过电子邮件发送照片和链接，下面为大家详细介绍下其具体的
- 有的时候下载的文档中有一大堆批注，如何快速删除这些批注呢?下面小编给大家分享Word批注的删除方法，欢迎阅读：Word批注的删除方法如图：文
- 使用AutoCAD绘制图纸时，为了保证尺寸的精准，大多数人都会使用对象捕捉功能来实现，对象捕捉里的“对象”指的就是一些特殊的点，如端点、中点
- 演示动画操作步骤在浏览Excel表格中的数据时，为了查找的方便，我们经常要对数据进行排序。下面，我们以“员工基本情况登记表”为例，来看看具体
- wps演示是我们现在常用的办公软件，当我们在工作中制作好一个wps演示文档时，可以转换成视频格式播放给别人看。下面是小编整理的wps演示转换
- 最近有咨询，如下图所示，如何添加红色方框里的数字样式呢？本期Word小编与大家分享一种快速实现的技巧。将鼠标放在需要添加脚注的地方，点击引用
- 第一步，通过浏览器登录到iBMC管理界面,使用虚拟控制台，如下图： 启动虚拟台在“首页”右侧，点击“启动虚拟控制台”，选择一种方式，就进入了
- iOS 13 改变了主屏幕的工作方式，进入桌面编辑模式的方法与 iOS 12 略有不同，我们来看看更新到 iOS 13 之后如何在 iPho
- 如果想将Excel单元格中输入的内容限制在几个选项之一，可以用Excel中的数据有效性功能制作一个下拉菜单，还可以设置让Excel在发现用户
- 1. 目的购买新笔记本电脑激活office 365时一般需要登录或注册自己的微软账号，如果我们在注册微软账号时因操作不当而造成的微软账号异常
- word文档怎样隐藏空白部分？word是我们在编辑文档时经常会使用到的，在编辑文档的过程中，有些地方会有空白间隙，这个空白间隙可以隐藏掉的，
- 函数介绍功能返回由文本字符串指定的引用。此函数立即对引用进行计算，并显示其内容。语法INDIRECT(ref_text, [a1])参数Re
- 微信 for Mac 3.0.0 版本现已在官网上发布，支持浏览朋友圈，支持浏览聊天中分享的视频号视频和视频号直播，在 OS X 10.14
- 笔者每月都要编辑一个Excel2007工作簿文件,该工作簿包含有十几张工作表。在编制报表过程中,笔者发现除了数值数据必须改动外,所有报表的一
- excel表格打印慢该怎么优化？excel表格文件打印很慢，该怎么优化让文件打印更快呢？下面我们就来看看excel文件优化的方法，需要的朋友
- epic2022圣诞节特惠活动已经开始啦！还有一些玩家不清楚2022圣诞特卖优惠券怎么用呢，所以下面小编打算来教教大家epic2022圣诞节
