Я начинаю изучать свое путешествие в VBA Excel
У меня есть проект, который нужно сделать: перебрать различные листы на листах и скопируйте значение в определенном диапазоне в листах и скопируйте это значение на один лист. Как мне этого добиться?
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