用VBA对表格区域进行排序

阿哩木 · 发表于 2023-5-15 15:06

用VBA对表格区域进行排序，请大佬帮忙看看，谢谢！！

高个子 · 发表于 2023-5-15 15:21

Sub 宏1()
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("M3:M" & Cells(Rows.Count, 2).End(xlUp).Row) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:N" & Cells(Rows.Count, 2).End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

复制代码

高个子 · 发表于 2023-5-15 15:22

录个宏就可以解决了。。

阿哩木 · 发表于 2023-5-15 15:48

高个子发表于 2023-5-15 15:22
录个宏就可以解决了。。

谢谢帮忙，录制宏的方法我也试过，但是有负数的时候就不对，全部跳到0后面去了

zxsea_7426 · 发表于 2023-5-15 16:02

本帖最后由 zxsea_7426 于 2023-5-15 16:04 编辑

最简单的一行代码：

阿哩木 · 发表于 2023-5-15 16:27

zxsea_7426 发表于 2023-5-15 16:02
最简单的一行代码：

谢谢大神！！

吴中泉 · 发表于 2023-5-15 16:41

zxsea_7426 发表于 2023-5-15 16:02
最简单的一行代码：

说实话,就是那一堆属性英语单词记不住

龙剑出鞘 · 发表于 2023-5-15 16:52

Hontyu · 发表于 2023-5-15 17:06

本帖最后由 Hontyu 于 2023-5-15 17:10 编辑

..........

ykcbf1100 · 发表于 2023-5-15 21:24

本帖最后由 ykcbf1100 于 2023-5-15 21:25 编辑

参与一下。

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

[求助] 用VBA对表格区域进行排序