Форум по VBA и MS Office

Вот код нашёл, который удаляет пустые строки в таблице:

Макрос

Sub Макрос()

    For i = 52 To 23 Step -1
        If Cells(i, 1) = " " Then
            Rows(i).Delete
        End If
    Next i

End Sub

[свернуть]

А у меня первый столбец занят номерами. Как подкорректировать этот макрос, чтобы он удалял не полностью занятые строки, не учитывал занятые ячейки столбца А?


[вложение удалено администратором]

Sub Макрос()

    For i = 48 To 23 Step -1
        If Cells(i, "B") = "" Then
            Rows(i).Delete
        End If
    Next i
   
End Sub