Excel Макрос: Как удалить строку?

Автор freeman_net, 16 мая 2017, 10:41

freeman_net

А какая команда на удаление, а не скрытие?
Или как можно удалить уже скрытые строчки/столбцы
Вместо
rng2.Rows(i).EntireRow.Hidden = True
пишем
rng2.Rows(i).EntireRow.Delete = True
Или как то иначе?

Администратор


freeman_net

    For i = 4 To 80 Step 1
   

        If (Cells(i, "G").Value = "") Or (Cells(i, "G").Value = 0) Then

Выдает ошибку>>>>            rng2.Rows(i).EntireRow.Delete

        Else
           
            Rows(i).Hidden = False
        End If
    Next i

Администратор

Цикл у вас по листу:
Cells(i, "G")

А удаление в диапазоне:
rng2.Rows(i).EntireRow.Delete

Нестыковка у вас. Видите перед Rows(i) переменную "rng2"? Это диапазон.