非常有难度的字母+数字排序，自己想了两天了都不知道该怎么排序，请高手帮忙解答一下

wang8679506 · 发表于 2016-11-3 16:00

chxw68 发表于 2016-11-3 15:53
这个题目比较新颖！又试着用直接计算每个字符的ASCII码写了一个，由于楼主提供的数据比较少，也比较单一， ...

我给您回复的里边有个新的附件《New字母数字排序.rar》，那里边是我最原始的数据，我需要对A列进行排序，排序的同时后边其他列的数据也会跟随A列一起排序，您再帮忙看一下，Thanks!

wang8679506 · 发表于 2016-11-3 16:05

chxw68 发表于 2016-11-3 15:58
修改好了。

ORZ 膜拜！！！太厉害了！效率真高，谢谢！

wang8679506 · 发表于 2016-11-3 16:08

duquancai 发表于 2016-11-3 15:48
附件，点击按钮》》》》

恩恩，跟我需要的效果一样， Thanks!!!

yjh_27 · 发表于 2016-11-3 20:34

本帖最后由 yjh_27 于 2016-11-3 21:19 编辑

多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html
(出处: ExcelHome技术论坛)

Sheet21
=YjhSort(A2:A12, "rea;\d;,re1;\D;", "1,1")
参数1，原数据
参数2，排序要求（排2次，）
正则
字母升序
保留字母
数字升序
保留数字
参数3，排序列

yjh_27 · 发表于 2016-11-3 21:11

自定义函数
参见附件

yjh_27 · 发表于 2016-11-3 21:32

本帖最后由 yjh_27 于 2016-11-4 09:24 编辑

wang8679506 发表于 2016-11-3 16:00
我给您回复的里边有个新的附件《New字母数字排序.rar》，那里边是我最原始的数据，我需要对A列进行排序 ...

参见附件。含1L、7L附件
排序结果在表3

Sub aa()
r = Range("a" & Rows.Count).End(xlUp).Row
arr = Range("a1:g" & r)
brr = YjhSort(arr, "rea;\d;,re1;\D;", "1,1")
Sheets("Sheet3").Range("a1").Resize(UBound(arr), UBound(arr, 2)) = brr
End Sub

复制代码

wang8679506 · 发表于 2016-11-4 13:18

yjh_27 发表于 2016-11-3 21:32
参见附件。含1L、7L附件
排序结果在表3

谢谢您的热心帮助！

aman1516 · 发表于 2016-11-4 13:56

这个仅限定是“字母+数字”格式的排序罢，若数据里面有“字母+数字”、“数字+字母”、“纯数字”、或还有其它混排数据时，则出错了

wang8679506 · 发表于 2016-11-4 16:08

chxw68 发表于 2016-11-3 15:58
修改好了。

我把代码整合到我的代码中了，点击表格中的《转换坐标》按钮为什么会提示“下标越界”？麻烦您有空的时候帮我看一下！Tkanks!

chxw68 · 发表于 2016-11-4 16:15

详见附件。下标越界的原因是工作簿中的工作表名与代码中的工作表名不一致。

		自动登录	找回密码
密码			免费注册

[求助] 非常有难度的字母+数字排序，自己想了两天了都不知道该怎么排序，请高手帮忙解答一下