如何根据 M 列上的 A-Z 升序对所有 A-Z 行进行排序 我已经尝试了以下方法,但没有效果,不知道我可能做错了什么?
Range("A1", Range("Z" & Rows.Count).End(xlUp)).Sort [M1], xlAscending
最佳答案
录制一个宏,您可以在其中选择要排序的列。作为示例,我录制了一个按升序对 M 列进行排序的宏:
Sub SortAsc2()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "M").End(xlUp).Row
Columns("M:M").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("M1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("M1:M" & LastRow)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
关于excel - VBA在一列上从A到Z排序,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45200732/