我正在尝试使用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
答案 0 :(得分:11)
以下是答案:
.Range("D1") = "Index"
.Columns("A:F").Sort key1:=Range("D2"), _
order1:=xlAscending, Header:=xlYes
感谢simoco的评论!