циклический просмотр листов для копирования значения в определенном диапазоне на другой лист - PullRequest
0 голосов
/ 08 ноября 2018

Я начинаю изучать свое путешествие в VBA Excel

У меня есть проект, который нужно сделать: перебрать различные листы на листах и скопируйте значение в определенном диапазоне в листах и ​​скопируйте это значение на один лист. Как мне этого добиться?

1 Ответ

0 голосов
/ 08 ноября 2018
Sub LoopAndCopy
Dim ws as Worksheet
dim target as worksheet
set target = worksheets("target sheet name goes here") 'sheet you're copying to
For each ws in ThisWorkbook.worksheets  'loop through worksheets
    if ws.name <> target.name then   'if not the target sheet then...
         'copy your range into the next blank row in column A
         ws.range("your range here").copy target.range("A" & rows.count).end(xlup).offset(1,0)
     end if
next ws
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...