[已解决]求助数据排序的VBA代码

安全网 · 发表于 2015-11-1 08:58

本帖最后由安全网于 2015-11-2 15:27 编辑

求助一个可以选择不列由大到小自动排序的VBA代码，就是点击排序的按钮，出现提示选择需要排序的列。

最佳答案

zjdh

2015-11-2 08:54

本帖最后由 zjdh 于 2015-11-3 09:30 编辑

多条件分类统计2.rar (30.7 KB, 下载次数: 19)

zjdh · 发表于 2015-11-1 10:35

Sub Macro1()
Set myCell = Application.InputBox(prompt:="请选择需要排序的列", Type:=8)
myCell.Sort Key1:=myCell(1), Order1:=xlDescending
End Sub

安全网 · 发表于 2015-11-1 15:59

zjdh 发表于 2015-11-1 10:35
Sub Macro1()
Set myCell = Application.InputBox(prompt:="请选择需要排序的列", Type:=8)
myCe ...

我想数据从第3行才开始排序。表头1和标题栏不参与排序

zjdh · 发表于 2015-11-1 16:45

安全网发表于 2015-11-1 15:59
我想数据从第3行才开始排序。表头1和标题栏不参与排序

多条件分类统计.rar (37.52 KB, 下载次数: 9)

安全网 · 发表于 2015-11-2 08:37

zjdh 发表于 2015-11-1 16:45

现在遇到一个问题，汇总的这一行数据的位置是不固定的，有可能是114，有可能是118，这个怎么样设置排序

zjdh · 发表于 2015-11-2 08:54

本帖最后由 zjdh 于 2015-11-3 09:30 编辑

多条件分类统计2.rar (30.7 KB, 下载次数: 19)

安全网 · 发表于 2015-11-2 16:57

zjdh 发表于 2015-11-2 08:54

红色的地方如果有2行标题或者3行标题或者更多
就不能排序

安全网 · 发表于 2015-11-2 17:53

安全网发表于 2015-11-2 16:57
红色的地方如果有2行标题或者3行标题或者更多
就不能排序

就是列从A开始，每列点击标题栏都可以排序

安全网 · 发表于 2015-11-3 09:20

zjdh 发表于 2015-11-2 08:54

帮忙看看这里面的数据排序没有效是怎么回事？

zjdh · 发表于 2015-11-3 09:30

本帖最后由 zjdh 于 2015-11-3 09:32 编辑

安全网发表于 2015-11-3 09:20
帮忙看看这里面的数据排序没有效是怎么回事？

多条件分类统计2 .rar (112.25 KB, 下载次数: 1)

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