Скопируйте и вставьте таблицу по заголовку

У меня есть список таблиц на одной странице (загруженный с веб-сайта), у каждой есть свой заголовок и одинаковый конец. Есть ли простой способ настроить и зациклить, чтобы найти один заголовок, скопировать и вставить всю его динамическую таблицу на другой лист.

Пример листа 1:

Название1

11 АБВ

12 DEF

13 GHI

Всего 30 J K L

Название2

11 МНО

12 PQR

13 СТЮ

Всего 30 V W X

Что-то в этом роде

Activesheet1

If cell in column A = "Title1"

        Do Until cell in column A = "Total"(Or first next blank cell)


             Sheet1 Range.(CellA:CellD).Copy


             Paste Sheet2

Я пробовал несколько способов, но никогда не мог получить только первую или вторую таблицу целиком. Я нигде в Интернете не нашел хорошего примера этого, чтобы сослаться на него. Спасибо за любую помощь.

Источник

0 ответов

Другие вопросы по тегам