excel - 对特定工作表中的范围进行排序不起作用

Question

我编写了一个代码来简单地对名为“Saisie”的工作表上的一个选项卡进行排序。它在“Saisie”是事件工作表时起作用。
但我希望代码从另一张纸上运行。
代码是:

Range("H1:K2001").sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlYes

代码写在一个模块中。

因此，当另一个工作表处于事件状态时，我添加了我认为需要进行排序的内容:

我试过了:

Dim sh As Worksheet
Set sh = ActiveWorkbook.Sheets("Saisie")

sh.Range("H1:K2001").sort Key1:=Range("H1"), Order1:=xlAscending, 
Header:=xlYes

还:

With Worksheets("Saisie").Range("H1:K2001")
    .sort Key1:=.Range("H1"), Order1:=xlAscending, Header:=xlYes
End With

对于这两个我都有一个“1004”错误。
有谁知道为什么？

我创建了几十个论坛，这些解决方案似乎适用于其他用户。

Answer 1

在您的第二次测试中:

With Worksheets("Saisie").Range("H1:K2001")
    .sort Key1:=.Range("H1"), Order1:=xlAscending, Header:=xlYes
End With

您必须使用 Worksheets("Saisie").Range("H1")而不是 .Range("H1")