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为按笔画顺序排序。在代码中进行相应的更改即可按不同的方法和次序进行排序。
猜你喜欢
- 一种快速简便方法若要在Excel中添加值是使用自动求和。只需选择一个空白单元格下方的一列数据。然后在公式选项卡上,单击自动求和>求和。
- 通过设置允许拖放式文字编辑功能,用户可以在Word2010文档中使用鼠标拖动选中文字,以实现移动、复制等文字编辑功能通过设置允许拖放式文字编
- 把上表的格式转换成下表的格式, ,可以打开数据透视表向导,按 alt + d 键后, 3 、第3步添加表格区域,转换成按列显示, 操作步骤:
- 许多用户在查找资源的时候,经常都是进入百度里面查找,而有些网页中的软件都捆绑了非常多的流氓软件,导致用户的电脑一直在安装一些流氓软件。那么,
- 在文档编辑中,页眉和页脚有着不可或缺的作用,但是对于大多数人来说还是不太懂,今天,小编就教大家如何使用WPS2017 创建页眉页脚,欢迎大家
- Word可以说是我们经常使用的文件了,而许多用户在Word输入的时候经常需要输入一些特殊的字符,例如数学的数字公差,那么在Word中怎么输入
- 一组快捷使用的word操作技巧,掌握了,你就是达人。来源: 中国警方在线
- windows10系统录音机不能录音的解决方法步骤如下:1、按下“Win+R”组合键打开运行,在运行框中输入services.msc 点击确
- 如果每天都处理一些同样的Excel文件,为了在启动Excel后,不再花费大量的时间去查找、选择所需的Excel文件,可以设置在启动程序时让系
- 职场办公,不少小伙伴会因为Word而抓狂。那么今天小编就来和大家分享几个好用的Word技巧,希望有了它们,大家的工作效率都能得到提高!下面就
- 电脑偶尔会出现问题,最近有网友遇到了win10系统设备管理器出现F5521gw未知设备的情况,那么win10系统设备管理器出现F5521gw
- excel超过15位数字如何处理?打开excel工作样表作为例子。在常规单元格格式下,输入超过位数的数字会自动转换为科学计数法显示。点击单元
- 继之前教了 PPT 中的各种排版方式以后,很多同学热情高涨,提议多写写排版有关的教程,简直是救加班族于水火。那么今天来讲讲 Word 中怎么
- 有时候不想在word文档中看到一些插入的批注,感觉很凌乱,我们可以取消word批注,使其正常显示。那么究竟如何取消word批注呢?单击审阅—
- Excle中的有效性功能具体该如何进行设置呢?下面是由小编分享的excel2003有效性功能的设置教程,以供大家阅读和学习。excel200
- word表格如何实现序号自动填充修改不了?在word表格中自动填充自定义序号的方法打开一个需要自动填充自定义序号的表格。选中要进行自动填充自
- 借助Word 2007提供的图片柔化边缘功能,用户可以为Word 2007文档中的图片设置柔化边缘效果,使Word 2007图片的边缘呈现比
- 在excel中插入图片时如何把图片固定?很多朋友并不是很清楚,所以下面小编就为大家详细介绍一下,不会的朋友可以参考本文excel中插入图片时
- 在Excel的数据中,有时需要对数值四舍五入取值,可以使用ROUND函数对数值四舍五入取值。Excel2007可使用ROUND函数对数值四舍
- 在Word2007文档中,不仅可以创建指向当前Word文档的书签超链接,还可以根据需要创建指向其他Word文档的书签超链接。在Word200