Делать до l oop - пока все строки не станут пустыми - PullRequest
Новая
       26

Делать до l oop - пока все строки не станут пустыми

0 голосов
/ 06 января 2020

Я еще не знаком с языком программирования VBA и до сих пор могу записывать и понимать макросы, но сделать его самому по-прежнему довольно сложно.

В настоящее время я работаю над шаблоном печати (имя листа) Горизонтальные "). Шаблон должен быть заполнен информацией, которую он получает с рабочего листа «ZFA». После заполнения шаблона он распечатает и очистит его, а также удалит строку из «ZFA». Поскольку мне приходилось выполнять эту задачу много раз в день, я хотел узнать, есть ли возможность сделать это через al oop. Поэтому повторяйте верхние шаги до тех пор, пока колонка c не станет пустой на листе "ZFA".

Код, который я сейчас использую для заполнения шаблона, печати и удаления строки: 

    Range("A2").Formula2R1C1 = "=ZFA!RC"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("A2").Select
    Selection.ClearContents
    Sheets("ZFA").Select
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Sheets("Horizontal").Select

Так можно ли повторять эту задачу до тех пор, пока колонка C на рабочем листе ZFA не станет пустой?

...