如何按照中文数字和阿拉伯数字混合排序？

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

楼主
amulee

Q：如何按照中文数字和阿拉伯数字混合排序？
A：如附件，原先年级和班级都打乱，需要根据年级和班级从小到大进行排序，同一班级内再按照姓名排序。效果如下：
由：

变成

执行以下代码：

Sub 排序()
Dim ArrYS, i&, j%, Temp1, Temp2, Rng As Range, Temp$
Set Rng = Range("A1:B" & Range("A1048576").End(xlUp).Row)
ArrYS = Rng
Temp = "一二三四五六七**十"
'格式化各班级
For i = 2 To UBound(ArrYS)
Temp1 = Int(InStr(1, Temp, Left(ArrYS(i, 2), 1))) '取左边大写一二三四等转化为数字
Temp2 = Right(ArrYS(i, 2), Len(ArrYS(i, 2)) - 3) '取班级数字
ArrYS(i, 2) = Temp1 * 100 + Int(Left(Temp2, Len(Temp2) - 1)) '转化年纪班级为数字=年级*100+班级
Next i
Rng = ArrYS '将上述转化结果再写入工作表
'排序。利用系统排序
Rng.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlYes
'恢复原来班级
ArrYS = Rng '得到排序后的结果
For i = 2 To UBound(ArrYS)
Temp1 = Mid(Temp, ArrYS(i, 2) \ 100, 1) & "年级" '将年级转化为大写数字
ArrYS(i, 2) = Temp1 & (ArrYS(i, 2) Mod 100) & "班" '将年级班级写入
Next i
Rng = ArrYS '输出最终结果
End Sub

附件如下：

0602排序问题.rar

2楼
wnianzhong

学习一下VBA!

免责声明

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

评论列表