如何自动生成排序序号？

DAHAI31415

feng_xiaoxiao 发表于 2014-10-22 19:27
结果很精准！！太感谢了！！唯一的不足就是运算速度慢，如果量很大时。有没有VBA的更快方法？

抱歉，本人不会VBA

feng_xiaoxiao

DAHAI31415 发表于 2014-10-22 19:33
抱歉，本人不会VBA

嗯，好的。谢谢已经狠狠帮助了我！！

feng_xiaoxiao

坐等VBA高手从天而降~

yjh_27

feng_xiaoxiao 发表于 2014-10-22 19:27
结果很精准！！太感谢了！！唯一的不足就是运算速度慢，如果量很大时。有没有VBA的更快方法？

5L  就是 VBA的
Sub aa21a()
R = Range("a" & Rows.Count).End(xlUp).Row
arr = Range("a2:b" & R)
crr = YjhSort(arr, "a,a", "1,2", "R,2;1;1")

Range("C2").Resize(UBound(crr), 1) = crr
End Sub

feng_xiaoxiao

yjh_27 发表于 2014-10-23 11:16
5L  就是 VBA的
Sub aa21a()
R = Range("a" & Rows.Count).End(xlUp).Row

兄弟，5L和您刚发的都有一个小问题，对完全相同的记录会重复记数。
示例如下：
名称        日期        排序
北京        2004-01-05        1
北京        2005-05-01        3
北京        2004-02-21        2
上海        2008-09-10        3
山东        2006-07-08        1
济南        2003-01-09        1
北京        2005-05-01        4
北京        2005-05-01        5
上海        2004-02-01        1
上海        2005-09-09        2
上海        2010-04-03        4
上海        2010-04-03        5
山东        2012-03-01        2
济南        2014-09-09        2

feng_xiaoxiao

yjh_27 发表于 2014-10-23 11:16
5L  就是 VBA的
Sub aa21a()
R = Range("a" & Rows.Count).End(xlUp).Row

高手啊，等着您帮着解决一下啊。拜谢！！

yjh_27

feng_xiaoxiao 发表于 2014-10-23 11:20
兄弟，5L和您刚发的都有一个小问题，对完全相同的记录会重复记数。
示例如下：
名称        日期        排序

中式排名

Sub aa21b()
R = Range("a" & Rows.Count).End(xlUp).Row

arr = Range("a2:b" & R)
crr = YjhSort(arr, "a,a", "1,2", "R,2;1;3")

Range("d2").Resize(UBound(crr), 1) = crr
工作簿1.zip (79.07 KB, 下载次数: 18)

2014-10-23 22:12 上传

点击文件名下载附件

多肉君_

feng_xiaoxiao 发表于 2014-10-23 11:20
兄弟，5L和您刚发的都有一个小问题，对完全相同的记录会重复记数。
示例如下：
名称        日期        排序

aabbdfafa;lfjalfajflafja;ldjlsdfjalfjalfja;fa;lfdsjlfjf;lsafdjsalfas

feng_xiaoxiao

yjh_27 发表于 2014-10-23 12:41
中式排名

Sub aa21b()

仍然是没解决重复问题，而且每点一次序号就变一次，太奇怪了

feng_xiaoxiao

多肉君_ 发表于 2014-10-23 15:08
aabbdfafa;lfjalfajflafja;ldjlsdfjalfjalfja;fa;lfdsjlfjf;lsafdjsalfas

感谢多肉君！！真正解决了问题！！