请用VBA对单元格区域进行排序

沙漠滴雨 · 发表于 2014-4-1 18:26

请您用VBA对工作表中的A1：D9816以A列升序排序。
效果即：

701A-0-从小到大排完之后，再类似地排列下面的各类：

702B-0-

703C-0-

704D-0-

705E-0-

706F-0-

707G-0-

708H-0-

709I-0-

710J-0-

711K-0-

712N-0-

713O-0-

714P-0-

715Q-0-

716R-0-

717S-0-

718T-0-

719U-0-

720V-0-

721X-0-

722Z-0-

对您的帮助，提前表示感谢。

chxw68 · 发表于 2014-4-1 18:32

你用EXCEL菜单栏中的排序达不到效果吗？

沙漠滴雨 · 发表于 2014-4-1 18:49

本帖最后由沙漠滴雨于 2014-4-1 20:23 编辑

谢谢老师关注。各类数据可能还多。所以想“一劳永逸“！

dsmch · 发表于 2014-4-1 19:51

Sub Macro1()
[e1:g1] = Array("a", "b", "c")
Range("a2:a" & Range("a65536").End(xlUp).Row).TextToColumns [E2], Other:=True, OtherChar:="-"
[a1].CurrentRegion.Sort Key1:=[E2], Key2:=[F2], Key3:=[G2]
[e:g].ClearContents
End Sub

复制代码

yjh_27 · 发表于 2014-4-1 20:10

参见附件。

沙漠滴雨 · 发表于 2014-4-1 20:42

dsmch 发表于 2014-4-1 19:51

感谢老师帮助。

内容排序结果没有错误。

但，标题行怎么？——

请老师指点。谢谢。

沙漠滴雨 · 发表于 2014-4-1 20:44

本帖最后由沙漠滴雨于 2014-4-1 20:45 编辑

沙漠滴雨发表于 2014-4-1 18:49
谢谢老师关注。各类数据可能还多。所以想“一劳永逸“！

chxw68老师，我试过，没有成功。

沙漠滴雨 · 发表于 2014-4-1 20:53

yjh_27 发表于 2014-4-1 20:10
参见附件。

感谢老师帮助。

效果理想！

程序内容太多了，理解不了。QQ:493489864@qq.com发个详解好吗？谢谢无私的老师。

yjh_27 · 发表于 2014-4-1 21:07

参见

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

模块2 会用即可，各参数有说明
本次只是写了 sub aa

沙漠滴雨 · 发表于 2014-4-1 21:11

yjh_27 发表于 2014-4-1 21:07
参见

多Key数组排序(分类、统计、重复处理)-自定义函数

好的老师，我再好好领悟一下。谢谢老师！

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

[求助] 请用VBA对单元格区域进行排序