＆＃34;运行时错误1004对象的方法范围_global失败＆＃34; VBA错误

Question

请帮助解决错误：

  

运行时错误1004对象_global失败的方法范围

我接受了这个vba。

在此之前我还有大约10个以上的VBA，没有一个返回错误，但是这个（它们是相同的，只有页码不同）：

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

始终确保您参考正确的工作表并指定变量的类型。