关于数字排序的处理过程（VBA代码）

ykcbf1100

838833928 发表于 2025-4-7 15:20
大师的办法确实很好，就是有点慢，怎么优化一下呢

Arraylist法确实会慢一点，但是简单。你想快的话，用其他老师的代码吧。

leolee82

需要速度快的，给你提供个思路吧，将表格的值做为数组索引，表头做为值。最后按顺序倒序读就行。伪代码：
arr0=表格数据
dim arr(1 to 100)
dim arrHeader
Do while(arr(arr0(I,J))) THEN '由于arr0(I,J)有重复值，可以判断一下
    arr0(I,J)=arr0(I,J)=arr0(I,J)+1
loop
arr(arr0(I,J))=arrHeader(1,J)
倒序读arr的值就是按从大到小已排序的

今铭昔

ykcbf1100 发表于 2025-4-7 14:05
你理解错了吧，应该用第一行的数据。你可以看一下效果图的AB列数据。

原来如此，是我理解错了，感谢指正

838833928

今铭昔 发表于 2025-4-7 19:37
原来如此，是我理解错了，感谢指正

劳驾放出代码

今铭昔

838833928 发表于 2025-4-7 21:58
劳驾放出代码

你需要的是VBA代码，而我这个是JavaScript代码，且这个只能在WPS里运行。使用方式和VBA一样。

NBCBA123

tcdatongye

sdytsxd991122

学习了

sdytsxd991122