我不知道为什么我的Select for the Range在这一行上不起作用。 这是范围的正确语法。
ActiveWorkbook.Sheets("Report M-1").Select
ActiveSheet.Rows("1:1").Find("Operational Categorization Tier 1").Activate
ActiveSheet.Rows("1:1").AutoFilter field:=5, Criteria1:="SECURITY TROUBLE"
ActiveSheet.Range("A1").CurrentRegion.Copy
If FeuilleExiste("Feuil1") = False Then
ActiveWorkbook.Sheets.Add
End If
****ActiveWorkbook.Sheets("Feuil1").Range("A1:").Select****
Selection.PasteSpecial xlPasteAll
ActiveWorkbook.Save
'suppression filtre
Workbooks("Monthly security report May.xls").Activate
ActiveSheet.Rows("1:1").AutoFilter
答案 0 :(得分:2)
*** ActiveWorkbook.Sheets( “Feuil1”)范围。( “A1”),选择****
您在该范围内有额外的:
。
应该是
ActiveWorkbook.Sheets("Feuil1").Range("A1").Select
你应该避免使用.Select
。您可能希望看到THIS LINK