Excel 使用vba对数据进行排序
我试图对数据不存在的行和列进行排序,但在上面的代码中,排序操作仅适用于行A2:A20和列A1:P20 我的标准是要对工作表中的整行和整列应用排序 有谁能帮我解决这个问题吗Excel 使用vba对数据进行排序,excel,vba,excel-2016,Excel,Vba,Excel 2016,我试图对数据不存在的行和列进行排序,但在上面的代码中,排序操作仅适用于行A2:A20和列A1:P20 我的标准是要对工作表中的整行和整列应用排序 有谁能帮我解决这个问题吗 Sub Macro4M() ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add(Range("A2:A20"), _
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
End Sub
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