Для синей таблицы:
Пустая строка = Пустой ID
Пройдитесь по ней циклом, определив последний непустой ID как Selection.End(xlDown).Select, и если ID пустой - выделяйте и удаляйте строку
Здесь это вам даже поможет
Пустая строка = Пустой ID
Пройдитесь по ней циклом, определив последний непустой ID как Selection.End(xlDown).Select, и если ID пустой - выделяйте и удаляйте строку
| Цитата |
|---|
| (так как после копирования значений строки в которых на листе 1 были формулы на листе 2 остаются не пустые строки но с виду они пустые). |
