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

~ 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为按笔画顺序排序。在代码中进行相应的更改即可按不同的方法和次序进行排序。

---

宁德市17311076539： exceL中汉字如何按拼音排序 - ？
党胡力络： 具体操作步骤是:1、光标点击数据区域,点击“数据”、“排序”.2、在“排序”对话框中,点“选项”,分别点击“按列排序”、“字母排序”,确定.

宁德市17311076539： 在EXCEL里面可以按汉字笔画排序吗? - ？
党胡力络： 1、选择要排序的区域2、数据-->排序3、点击下方的“选项”按钮,选择“按笔划排序”

宁德市17311076539： EXCEL如何设置在同一行或者同一列按字母或者拼音排序? - ？
党胡力络： 选中整列,然后点数据--排序,选择排序下面有一个“选项”,点后出来的窗口,可以选字母或拼音,甚至甲乙丙丁这样的序列都是可以的,然后确定.再确定,就排好了.

宁德市17311076539： EXCEL如何排序;文字排序 - ？
党胡力络： 你选中这个工作表,选择菜单“数据”-“排序..”--按这列数据排序(选择升序或降序)--确定就OK了

宁德市17311076539： 请问在WORD和EXCEL中文字怎么能有序排列(拼音顺序或笔画顺序)?谢谢! - ？
党胡力络： Word中的拼音顺序即Excel中的字母顺来序,两者中的“笔画顺序”意思完全相同. Word中:执行“表格/排序自”命令,“主要关键字”栏中选中排序的目标“列*”和“类型”栏的“拼音(2113或笔画)”,同时选择“升序(或降序)”,“确定”. Excel中:执行“5261数据/排序”命令,“主要关键字”栏中选中排序的目标“列*4102”和“升序(或降序)”,单击“选项”按钮,在“方法”栏选择“字母1653排序(或笔画排序)”后“确定”.

宁德市17311076539： 在Word和Excel中如何按“笔画”排序 - ？
党胡力络： Word中:执行“表格/排序”命令,“主要关键字”栏中选中排序的目标“列*”和“类型”栏的“拼音(或笔画)”,同时选择“升序(或降序)”,“确定”.Excel中:执行“数据/排序”命令,“主要关键字”栏中选中排序的目标“列*”和“升序(或降序)”,单击“选项”按钮,在“方法”栏选择“字母排序(或笔画排序)”后“确定”.

宁德市17311076539： 在EXCEL里面可以按汉字笔画排序吗?？
党胡力络： 数据→排序→选项→笔画排序→确定

宁德市17311076539： 怎样将多页表格综合按笔画排序 - ？
党胡力络： 按姓氏笔画排序:一、笔画数由少到多的原则.按照姓的笔画多少,少的排在前,多的排在后,如王和李,王四画,李 七画,王在前,李在后.二、笔画数相同的,按姓氏起次笔排序的原则.按“一(横)、丨(竖)、丿(撇)、丶(捺、点...

宁德市17311076539： excel中如何改变文字的顺序? - ？
党胡力络： Excel的主要功能是表格,不同于Word,Word的主要功能是文档,可调整字符间距,而Excel中并无调整字符间距选项,以下内容可改变下视觉效果: 1. 右击单元格,设置单元格格式,字体,调整字体、字形、字号,达到调整字符间距的效果; 2. 设置单元格格式,对齐,调整对齐方式,各种对齐方式有各自的美化效果,分散对齐有形似添加空格的效果,两端对齐有自动换行效果,等等; 3. 除标题外,尽量不用添加空格的方法来调整字符间距,空格也是一个字符,只是正常色下,看上去是空的,使用后可能会影响公式的提取、判断等操作,往往会因为存在空格,导致判断值看上去一样,实际并不相同,从而出现错误结果.

宁德市17311076539： excel中如何排序 - ？
党胡力络： excel中数据排序有数据重排和序数计算(类似成绩统计中的名次)两类. 一、数据重排 1、一般排序 (单击Excel“数据”菜单下的“排序”命令) 例如将学生花名册按“姓名”的笔划排序,可以使用以下方法: 选中排序关键字所在列(或行...