对象variables和块没有设置错误从Excel vba

我有以下代码，但是excel给我错误91：对象variables或块variables没有设置错误

这是特别强调我设置lr1等于查找公式的行。

我不知道为什么这样做。

PLS。 帮帮我！

这里是代码：

'Start Argument 'This Argument will deal with locating the last empty row and inserting Free Rent & Recoveries Headers Sub LER() 'The variable lr1 is set as a Long Number Dim lr1 As Long 'The variable lc1 is set as a Long Number Dim lc1 As Long 'The variable sr1 is set as a Long Number Dim sr1 As Long Sheets("Sheet1").Range("A1").Activate 'The variable lr1 is used to store the find formula to locate the last row of cells containing any data lr1 = Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row 'The variable sr1 is used to go to the truly last row of empty cells with no data whatsoever. 'This is always after the last row of cells with data, hence the "lr1 + 1" formula utilization sr1 = lr1 + 1 'Cells from the last empty row in coloumns A through G are selected to be merged and centered Union(Cells(sr1, 1), Cells(sr1, 2), Cells(sr1, 3), Cells(sr1, 4), Cells(sr1, 5), Cells(sr1, 6), Cells(sr1, 7)).Select MsgBox "The last Cell is:" + sr1 'End of Argument End Sub 

Answer 1

将对象限定到其父项：

 Dim ws1 as Worksheet Set ws1 = Worksheets("Sheet1") With ws1 Dim rLastCell as Range Set rLastCell = .Cells.Find(What:="*", After:=.Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False) Dim lr1 as Long lr1 = rLastCell.Row '... more code End With