根据“ L”列以升序对范围进行排序

Question

I use the following macro recorded to sort Column L in Ascending order, but it seems a bit ridiculous to have to use 12 lines of code to sort something. Is there a more "efficient" way to do this?

I need it to sort the entire sheet, based on column L.

Sheets("Sheet1").Range("A1").End(xlToRight).AutoFilter
Sheets("Sheet1").AutoFilter.Sort.SortFields.Clear
Sheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
    ("L1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortTextAsNumbers
With Sheets("Sheet1").AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Answer 1

The following line will sort the L column in ascending order.

 Sheets("Sheet1").Sort Key1:=Range("L1"), Order1:=xlAscending

This will sort the ENTIRE sheet, to sort just the data, I'd declare a couple variables like below:

Dim lastRow As Long, lastColumn As Long, StartCell AS Range, s As Worksheet

Set s = Sheets("Sheet1")
Set StartCell = Range("A1")
lastRow = s.Cells(s.Rows.Count, StartCell.Column).End(xlUp).Row
lastColumn = s.Cells(StartCell.Row, s.Columns.Count).End(xlToLeft).Column

s.Range(StartCell, s.Cells(lastRow, lastColumn)).Sort _
 Key1:=Range("L1"), Order1:=xlAscending

Edited to reflect inclusion of ENTIRE sheet

Answer 2

If your data is starting in Row 1 and will stay in Row 1, you can just use this:

Columns.Sort key1:=Range("L1"), order1:=xlAscending

This will sort all columns based on the values in column L1.