使用vba排序数据

Question

Sub Macro4M（）

ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add(Range("A2:A20"), _
    xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
    255, 0)
With ActiveWorkbook.Worksheets("Sheet2").Sort
    .SetRange Range("A1:P20")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

结束子

我正在尝试对不存在数据的行和列进行排序，但是在上面的代码中，排序操作仅适用于A2：A20行和A1：P20列我的标准是我想对工作表中的整个行和列进行排序谁能帮我这个忙

Answer 1

Sub Macro4M()

ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add(Range("A:A"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
With ActiveWorkbook.Worksheets("Sheet2").Sort
    .SetRange Range("A:P")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub