День добрый, в 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 |