如何用VBA解决这个排序问题，请高手们帮忙！

hubulwm · 发表于 2014-2-9 20:08

zax010 发表于 2014-2-9 19:30
请测试。

问题解决了，可运行起来有慢啊！

hubulwm · 发表于 2014-2-9 20:10

yjh_27 发表于 2014-2-9 16:48
总有个最大最小范围吧
对应修改数组定义

这个大小是变动的、

zax010 · 发表于 2014-2-9 20:17

hubulwm 发表于 2014-2-9 20:08
问题解决了，可运行起来有慢啊！

不慢呀，我测的运行时间是0.16秒。

hubulwm · 发表于 2014-2-9 20:33

本帖最后由 hubulwm 于 2014-2-9 20:38 编辑

zax010 发表于 2014-2-9 20:17
不慢呀，我测的运行时间是0.16秒。

可在我电脑上(8G内存，四CPU至少要运行17秒)那把你带测试时间的代码发下吧

hubulwm · 发表于 2014-2-9 20:53

yjh_27 发表于 2014-2-9 16:58
自适应代码。当然输入输出位置还是要指定。

数组arr = [a2:an2]以及数组brr
最好设置成可变的，用EXCEL函数获取上界，不知怎么实现

hubulwm · 发表于 2014-2-9 21:15

感谢yjh_27 和zax010 的程序，两位的程序均能实现预想的格式，一旦序列改变，程序就不适应了。现在的问题是让VBA自动识别原序列有多长，还请高手们解决问题中重要的因素：长度不确定但总是数字后面跟个汉字，实现预想序列！

zax010 · 发表于 2014-2-9 21:34

本帖最后由 zax010 于 2014-2-9 21:35 编辑

hubulwm 发表于 2014-2-9 20:33
可在我电脑上(8G内存，四CPU至少要运行17秒)那把你带测试时间的代码发下吧

我的电脑是8年前的1G主频，504M内存笔记本，测的就是给你的代码，约0.16秒完成。

再给一个附件，里面的代码排除一些影响速度的因素，你再试一下。

只运行给你的附件。

排序问题.rar (13.25 KB, 下载次数: 16)

yjh_27 · 发表于 2014-2-9 21:37

本帖最后由 yjh_27 于 2014-2-9 21:52 编辑

hubulwm 发表于 2014-2-9 21:15
感谢yjh_27 和zax010 的程序，两位的程序均能实现预想的格式，一旦序列改变，程序就不适应了。现在的问题是 ...

哪不是问题，但是输入输出的首单元格你还是指定。

Sub aa()
Dim brr()
col = Range("a2").End(xlToRight).Column '首列不在a，需减相应列数（如c为首列，-2）
arr = Range("a2").Resize(1, col)
maxi = arr(1, 1)
mini = arr(1, 1)
For i = 3 To UBound(arr, 2) Step 2
If maxi < arr(1, i) Then maxi = arr(1, i)
If mini > arr(1, i) Then mini = arr(1, i)
Next
ReDim brr(UBound(arr, 2) / 2, mini To maxi)
For i = 1 To UBound(arr, 2) Step 2
brr(0, arr(1, i)) = brr(0, arr(1, i)) + 1
brr(brr(0, arr(1, i)), arr(1, i)) = arr(1, i + 1)
Next
ii = 0
For i = 1 To UBound(brr, 1)
For j = LBound(brr, 2) To UBound(brr, 2)
If brr(0, j) > 0 Then
arr(1, 2 * ii + 1) = j
arr(1, 2 * ii + 2) = brr(i, j)
ii = ii + 1
brr(0, j) = brr(0, j) - 1
End If
Next
Next
Range("a5").Resize(1, UBound(arr, 2) ) = arr
End Sub

复制代码

hubulwm · 发表于 2014-2-9 21:46

yjh_27 发表于 2014-2-9 21:37
哪不是问题，但是输入输出的首单元格你还是指定。

秒速执行，正确无误。{:soso_e179:}

hubulwm · 发表于 2014-2-9 22:25

yjh_27 发表于 2014-2-9 21:37
哪不是问题，但是输入输出的首单元格你还是指定。

还想请问下，当我把序号改为
1101 改 1102 变 1201 测 1202 试
我把相应需要用到arr序号列的程序修改为Mid(arr(i, j),2,1)
从中提取第二个字符，为啥程序运行后成为
1101 改 1202 测 1101 变 1202 试
怎样修改相应代码才不改变中间那几个的序号？

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

[求助] 如何用VBA解决这个排序问题，请高手们帮忙！