excel将工作表按笔画或拼音顺序排序

office教程网 2024-12-14 23:17:56

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要：

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

excel用自定义函数获取单元格注释
我们可以用一个自定义函数来提取单元格注释。方法如下： 1.按Alt F11，打开VBA编辑器。 2.单击菜单“插入→模块”，在右边的代码窗口中输入代码： Function GetCommentText(rCommentCell As Range)Dim strGotIt As Stri

‘在此设置工作表排序方法和排序方向
‘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为按笔画顺序排序。在代码中进行相应的更改即可按不同的方法和次序进行排序。