VBA排序功能不起作用

Question

以下是VBA代码大部分的摘录。从另一张工作表粘贴值后，我对值列表进行排序时遇到问题。值列表已成功粘贴并选择，然后进行排序。此外，我正在使用的排序代码如果单独在宏中单独使用，则可以正常工作。关于这里可能出现什么问题的任何建议？谢谢

Dim ProductType As String
Dim ValueDate As String
ProductType = Range("I19").value
ValueDate = Range("I18").value
ActiveSheet.name = ProductType & " " & ValueDate
Sheets("SensitivityResults").Cells(6, 1).Resize(653).Copy
Sheets(ProductType & " " & ValueDate).Range("A3").PasteSpecial Paste:=xlValues
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess

Answer 1

选择可能设置不正确，请尝试使用

Sheets(ProductType & " " & ValueDate).Range("A3:A656").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess