VBA代码以升序排列Excel列并扩展select？

我试图在VBA的excel文件中按升序对列D进行sorting。 我想展开列AF中所有值的select。

我用这个公式作为出发点：

sorting升/降vba excel

它只对一列进行sorting并按降序排列。 我无法find更多的例子。

LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row If (.Range("D2").Value > .Range("D" & CStr(LastRow))) Then xlSort = xlAscending End If .Range("D2:D" & LastRow).Sort Key1:=.Range("D2"), Order1:=xlSort, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal 

Answer 1

答案是：

 .Range("D1") = "Index" .Columns("A:F").Sort key1:=Range("D2"), _ order1:=xlAscending, Header:=xlYes 

感谢simoco的评论！