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

hubulwm

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

还想请问下，当我把序号改为
1101 改 1102 变 1201 测 1202 试 1301 更 1302 多 1303 数 1304 据 1401 了
我把相应需要用到arr序号列的程序修改为Mid(arr(i, j),2,1)
从中提取第二个字符，为啥程序运行后成为
1101 改 1202 测 1301 更 1402 了 1101 变 1202 试 1303 多 1304 数 1301 据
如何修改程序，才能在用Mid提取后不改变原始编号？期待高手继续解决！

yjh_27

hubulwm 发表于 2014-2-9 22:25
还想请问下，当我把序号改为
1101         改         1102          变         1201         测       ...

请上传出错附件说明。

hubulwm

yjh_27 发表于 2014-2-9 22:33
请上传出错附件说明。

请查看，感谢关注解决！{:soso_e160:}

hubulwm

zax010 发表于 2014-2-9 21:34
我的电脑是8年前的1G主频，504M内存笔记本，测的就是给你的代码，约0.16秒完成。

再给一个附件，里面 ...

这次在我笔记本上测试的运行了48.60156秒

yjh_27

hubulwm 发表于 2014-2-9 22:41
请查看，感谢关注解决！

参见附件。

hubulwm

yjh_27 发表于 2014-2-9 23:10
参见附件。

遇到你真是福气，问题圆满解决{:soso_e179:}，看到你写的代码真是赏心悦目，期待你对下个问题的解决{:soso_e163:}{:soso_e160:}{:soso_e163:}{:soso_e181:}

535878236

yjh_27 发表于 2014-2-9 16:44
参见附件。

寻找微软大师，喜欢做讲师，帮助更多的企业客户用好Office办公软件！课程有excel培训，PPT培训，word培训，access培训，VBA培训，PROJECT培训，outlook培训等。有意向高手可以将简历发至grace@ms-power.net,待遇优厚,联系QQ:2823754646

锋速668

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

偶学习了，谢谢

hubulwm

535878236 发表于 2014-2-10 14:49
寻找微软大师，喜欢做讲师，帮助更多的企业客户用好Office办公软件！课程有excel培训，PPT培训，word培训 ...

这寻找高手的广告打到这里来了，你算找对高手了。