「對象_global的運行時錯誤1004法範圍失敗」 VBA錯誤

Question

請錯誤幫助：

runtime error 1004 method range of object _global failed

我在這個VBA收到。

我這個人之前有大約10多VBAS，他們沒有返回一個錯誤，但是這一次（它們是相同的，只是頁碼不同）：

Sub actualizare() 
Dim lastRw1, lastRw2, nxtRw, m 
Dim StartRow, x 
Dim StartDate As String 
Dim FndRw As String 

lastRw1 = Sheets(11).Range("B" & Rows.Count).End(xlUp).Row 

StartDate = Range("908!A21").Value 

For StartRow = 1 To lastRw1 
If Range("19_01!B" & StartRow).Value = StartDate Then 

FndRw = StartRow 
Exit For 
End If 
Next 

***Range("19_01!AM" & FndRw & ":AM" & lastRw1).ClearContents*** 

lastRw2 = Sheets(15).Range("A" & Rows.Count).End(xlUp).Row 

For nxtRw = 1 To lastRw2 

With Sheets(11).Range("B2000:B" & lastRw1) 

Set m = .Find(Sheets(15).Range("A" & nxtRw), lookat:=xlWhole) 

If Not m Is Nothing Then 
Sheets(15).Range("B" & nxtRw).Copy _ 
Sheets(11).Range("AM" & m.Row) 

End If 
End With 
Next 
End Sub 

謝謝！

Answer 1

嘗試這樣的：

If FndRw = vbNullString then Stop 
Worksheets("19_01").Range("AM" & FndRw & ":AM" & lastRw1).ClearContents 

並始終確保您引用正確的工作表，並指定變量的類型。