按升序排列Excel列並擴展選擇的VBA代碼？

Question

我正嘗試使用VBA在Excel文件中按升序對列D進行排序。我想擴展A-F列中所有值的選擇。

我用這個公式爲出發點：

sort ascending/descending 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的評論！