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

VBA排序功能不起作用

1 个答案: