excel vba 错误排序参考无效

Question

我正在运行我的宏：

Worksheets("LP").Range("D:D").Copy
Worksheets("LP").Range("C:C").PasteSpecial Paste:=xlPasteValues

Worksheets("LP").Range("C1:C31").Sort Key1:=Range("C1:C31"), Order1:=xlAscending, Header:=xlNo

... 排序给我一个错误，指出引用无效。我命名了正确的工作表而不是活动工作表以避免错误，并且它是一张没有标题的工作表，也如图所示。我不认为错误是，如果有人可以帮忙，这只是一个更大的宏开始的几行，所以我需要它们继续。

我检查了工作表，看看错误是否出在数据上，但一切都很好，并且代码中的情况相同。除非自去年以来函数的命名法发生了变化，否则我没有看到错误。我写的代码没有记录，那么改变数据内部的范围就没有问题了。

Answer 1

尝试：

with Worksheets("LP")
  .Range("D:D").Copy
  .Range("C:C").PasteSpecial Paste:=xlPasteValues
  .Range("C1:C31").Sort Key1:=.Range("C1:C31"), _
            Order1:=xlAscending, Header:=xlNo
end with