无法清除先前排序的数据

Question

我使用了多次排序，并希望清除排序并在同一张表中应用新的排序，但它不起作用，如果有人可以通过指导如何使用下面的排序清除代码来帮助我这将有所帮助：

Sheets("LEMC").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Primary Owner"

LSTRW = Cells(Rows.Count, "A").End(xlUp).Row

With Sheets("Primary Owner")
.Range("A:O").Sort Key1:=Range("D1"), order1:=xlAscending, Header:=xlYes
.Range("A:O").Sort Key1:=Range("H1"), order1:=xlDescending, Header:=xlYes
.Range("P1") = "Test"
.Range("P2:P" & LSTRW).Formula = "=IF(D2=D1,1,0)"
.AutoFilter.Sort.SortFields.Clear
.Range("A:P").Sort Key1:=Range("P1"), order1:=xlAscending, Header:=xlYes
End With

感谢专家

此致 苏雷什

Answer 1

尝试使用包含每行ID的列。这可以与行号相同。在对不同的参数进行排序后，您可以轻松地对此进行排序，以将数据集恢复为原始顺序。