Excel里VBA编程，要把一列按升序或者降序排列，怎么编代码？？ 只用一句代码可以实现吗？？？ 求大神啊3Q

Question

录制宏除外，有什么别的办法吗？？？
同时还要扩展到其他单元格.
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers

这个代码不行啊，它只排A列的，其他列不会动啊
https://zhidao.baidu.com/question/557604862.html

这才叫答案！！！！！！！！！！！！！

Answer 1

With Cells(1, A).CurrentRegion 'A为第几列，不过使用时要换成数字（如A列应写成1）
.Sort Key1:=.Cells(1, A), order1:=xlAscending, Header:=xlYes
End With
第一行为列名称，不参与排序

Answer 2

Worksheets("Sheet1").Range("A1:C20").Sort _
Key1:=Worksheets("Sheet1").Range("A1"), _
Key2:=Worksheets("Sheet1").Range("B1")

KEY3
KEY4追问

能不能不要粘贴复制，不会就别出来装逼........你是瞎了还是zz，不看问题

追答

你瞎啊，这么简单还出来问