Страницы: 1
RSS
Ошибка type mismatch, помогите разобраться, При запуске макроса выбивает ошибку type mismatch. Помогите
 
День добрый, в VBA совсем новичек, пока пишу простенькие макросы, и вот столкнулся со следующей проблемой при запуске данного макроса выбивает ошибку type mismatch, объясните пожалуйста что делаю не так?
Код
Sub Merge()
    Dim i&, lstr&
    lstr = Cells(Rows.Count, 2).End(xlUp).Row
    For i = lstr To 3 Step -1
        If Cells(i, 3) <> "" Then
            If Cells(i, 5) = "" Then
                Range(Cells(i, 5), Cells(i - 1, 5)).Merge
            End If
        End If
    Next
End Sub
 
У меня на тесте нет ошибки. Может, проблема не в макросе, а в ваших данных на листе?
 
Тоже выдавал ошибку, немного сократил и ошибка пропала
Код
Sub Merge()
Dim lstr&
lstr = Cells(Rows.Count, 2).End(xlUp).Row
For i = lstr To 3 Step -1
    If Cells(i, 3) <> "" And Cells(i, 5) = "" Then
        Range(Cells(i, 5), Cells(i - 1, 5)).Merge
    End If
Next i
End Sub
Страницы: 1
Наверх