excel VBA 排序

发布网友发布时间：2022-04-26 20:28

我来回答

共3个回答

热心网友时间：2023-10-29 15:35

不用vba，Excel转置可以实现。把欲转换的内容复制，光标定到目标单元格，然后在”编辑“菜单中，选”选择性粘贴“中的”转置“，确定即可完成转置即行列转换；完成后进行列排序，然后再转置回来。

图是我做的小测试

热心网友时间：2023-10-29 15:36

sheet2
A1=if(sheet1!c7="","",LARGE(sheet1!$c7:$zz7,column())
向右拉，再向下拉。追问完全不懂，但是好使，太牛*了

追答谢谢!

热心网友时间：2023-10-29 15:36

代码窗口输入以下程序代码：
Sub Macro1()
Dim n As Double
n = Range("a65536").End(xlUp).Row
Range("A1", "C" & n).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("C1") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
End Sub
运行代码。追问n = Range("a65536").End(xlUp).Row这一句不是很懂，能解释下么