Почему я получаю сообщение об ошибке при попытке создать макрос, который удаляет пустые строки?

Question

Я пытаюсь создать макрос, который должен удалять пустые строки в диапазоне A2: A45, но я получаю код ошибки

"Ошибка компиляции - требуется объект"

Пожалуйста, смотрите код ниже, что я делаю не так?

Sub delete_blank_rows()
Dim rng
Set rng = Nothing
For Each i In Range("A2:A45")
    If Application.CountA(i.EntireRow) = 0 Then
        If rng Is Nothing Then
            Set rng = 1
        Else
            Set rng = Union(rng, i)
        End If
    End If
Next i
rng.EntireRow.Delete
End Sub

Answer 1

Вы набрали 1 вместо i - измените его на:

Sub delete_blank_rows()
Dim rng
Set rng = Nothing
For Each i In Range("A2:A45")
    If Application.CountA(i.EntireRow) = 0 Then
        If rng Is Nothing Then
            Set rng = i ' <--- changed the 1 to an i
        Else
            Set rng = Union(rng, i)
        End If
    End If
Next i
rng.EntireRow.Delete
End Sub