Как удалить всю строку, если ячейка пуста

#vba #excel

#vba #excel

Вопрос:

у меня есть Excel, где данные начинаются с диапазона A8 (столбец) с другими значениями в соответствующих столбцах. Я несколько раз пробовал, но безуспешно, код, который начнет считывать значения в каждой ячейке столбца A8, и если найдена ячейка без значения, она должна удалить всю эту строку. Пожалуйста, помогите

Комментарии:

1. Попробуйте EmptyCell.EntireRow.Delete .

2. Извините, A8 означает, что данные начинаются с ячейки A8

Ответ №1:

Как предложил Тони:

 Sub ClearA()
    Dim N As Long, r1 As Range, r2 As Range
    N = Cells(Rows.Count, "A").End(xlUp).Row
    Set r1 = Range("A8:A" amp; N)
    Set r2 = Range("A:A").Cells.SpecialCells(xlCellTypeBlanks)
    Intersect(r1, r2).EntireRow.Delete
End Sub