VBA在一列上sortingAZ

我如何排列我所有的行，我有AZ列M上的基础上升AZ我已经尝试了以下，但它没有任何想法我可能做错了什么？

Range("A1", Range("Z" & Rows.Count).End(xlUp)).Sort [M1], xlAscending 

Answer 1

logging一个macros，在其中select要sorting的列。 作为一个例子，我已经logging了一个按照升序对列M进行sorting的macros：

 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