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

#vba #excel

#vba #excel

Вопрос:

Я новичок в программировании макросов VBA Excel и в настоящее время пишу код для удаления всей строки, если только последняя ячейка содержит данные, например, если ячейки A1, B1, C1, D1, E1 пусты, а в H1 есть какие-либо данные, чем я хочу удалить всю строку. Пробовал с помощью функции countA, но не удалось. Пожалуйста, помогите

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

1. Всегда ли последняя ячейка «H1» или это динамическая?

2. нет, его не динамическая последняя ячейка всегда будет H1

3. Об этом спрашивали несколько раз, просто выполните поиск по сайту.

Ответ №1:

Если «H1» всегда является вашей последней ячейкой, попробуйте это:

 If Range("H1").Value = "" then
    Range("H1").EntireRow.Delete
End if
 

если вы пройдете через это с помощью цикла:

 If Range("H" amp; row amp; "").Value = "" then
    Range("H" amp; row amp; "").EntireRow.Delete
End if