Snasui Excel Forum

Code: Select all

Sub Macro_SortField()

    Range("D9").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("data_total").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("data_total").Sort.SortFields.Add Key:=Range( _
        "D9:AN9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("data_total").Sort
        .SetRange Range("D9:AN1293")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("B7").Select


    
End Sub

Code: Select all

Dim rall As Range
With ActiveSheet
    Set rall = .Range("d9").CurrentRegion
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range( _
        "D9:AN9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With .Sort
        .SetRange rall
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
    .Range("B7").Select
End With

Code: Select all

'Other code
Set rall = .Range("d9").CurrentRegion
Set rall = rall.Offset(0, 2).Resize(, rall.Columns.Count - 2)
.Sort.SortFields.Clear
'Other code

Code: Select all

Set rall = rall.Offset(0, 3).Resize(, rall.Columns.Count - 3)