VBA EXCELsorting数据由3个单独的列编码错误帮助请

我试图按照3个不同的值对电子表格中的数据进行sorting，如下所示：

1. F列 – 值 – 从最旧到最新
2. B列 – 值 – 从最小到最大
3. 列A – 值 – Z到A

我有下面的代码不起作用，停止与.Apply部分的错误，但我担心单元格select是问题。

任何帮助，您可以提供将不胜感激

Sub DatePartOrderSort() ' ' DatePartOrderSort Macro ' ' LR = Cells(Rows.Count, "A").End(xlUp).Row Range(Cells(5, "A"), Cells(LR, "J")).Select ' Application.CutCopyMode = False ActiveWorkbook.Worksheets("Date Order").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Date Order").Sort.SortFields.Add Key:=Range( _ Cells(5, "A"), Cells(LR, "J")), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("Date Order").Sort.SortFields.Add Key:=Range( _ Cells(5, "A"), Cells(LR, "J")), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("Date Order").Sort.SortFields.Add Key:=Range( _ Cells(5, "A"), Cells(LR, "J")), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Date Order").Sort .SetRange Range(Cells(5, "A"), Cells(LR, "J")) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub 

提前致谢。

Answer 1

尝试这个：

 Sub DatePartOrderSort() ' ' DatePartOrderSort Macro ' ' LR = Cells(Rows.Count, "A").End(xlUp).Row Range(Cells(5, "A"), Cells(LR, "J")).Select ' Application.CutCopyMode = False ActiveWorkbook.Worksheets("Date Order").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Date Order").Sort.SortFields.Add Key:=Range( _ "F5:F" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("Date Order").Sort.SortFields.Add Key:=Range( _ "B5:B" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("Date Order").Sort.SortFields.Add Key:=Range( _ "A5:A" & LR), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Date Order").Sort .SetRange Range(Cells(5, "A"), Cells(LR, "J")) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub