我需要你的幫助的東西。我有1004的錯誤信息(應用或非對象定義)運行下面的代碼(我只放了關鍵部分)時:VBA:錯誤1004 - 選擇和複製問題
Sub overwrite_CDL()
Dim sht As Worksheet, LastRow As Long
Set sht = ThisWorkbook.Worksheets("JDE_Greece")
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
sht.Activate
Range("M1").AutoFilter Field:=13, Criteria1:="#N/A"
Range("A1:P" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Mismatches").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'we want to create a summary sheet with the matches and the N/A:'
sht.Range("M1").AutoFilter Field:=13, Criteria1:="<>#N/A"
sht.Range("A1:P" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Worksheets.Add(After:=Worksheets("Instructions")).Name = "Summary DRP"
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
另外,一切工作正常(沒有錯誤消息,良好的輸出),但一起運行時給我錯誤1004。即使濾鏡設置正確,我要添加的工作表也不會創建(「摘要DRP」)。
我認爲這個問題與選擇/複製有關,但我不知道爲什麼(我猜東西沒有正確定義..)。
有人可以幫助我嗎?感謝提前:)
哪一行返回錯誤? –