VBA代码按升序排序Excel列并展开选择？

Question

我试图在带有VBA的excel文件中按升序对列D进行排序.我想扩展列AF中所有值的选择.

我用这个公式作为起点:

排序升序/降序vba excel

它只按一列按降序排序.我找不到更多的例子.

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的评论!