Переменная объекта или блок не установлен -

Итак, у меня есть лист, в котором я хочу найти значение Range («M» и «i» в Range («A: A»). Однако, когда я пытаюсь запустить этот код, он возвращает ошибку: «Ошибка выполнения» 91: переменная объекта или блок не установлен. Когда я нажимаю отладку, он находит ошибку на

 SearchIn = Range("A:A") 

Я сделал поиск в Интернете и на этом сайте (что-то нашел), но все еще не могу решить проблему. Кто-нибудь понял?

Sub Find_Replace()

Dim i As Integer
Dim SearchIn As Range
Dim SearchedObject As Range
Dim FinalCell As Range
Dim SumCell As Range


i = 5
SearchIn = Range("A1:A740")
StartSearch = Range("A" & i)
FinalCell = Range("N" & i)

Do While i <= 740

SearchedObject = SearchIn.Find(What:="M" & i, After:=StartSearch, LookIn:=xlValues,          LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If SearchedObject.Value = Range("M" & i).Value Then FinalCell = FinalCell.Value + SearchedObject.Offset(0, 5).Value

Loop


End Sub

Ответы на вопрос(1)

Ваш ответ на вопрос