循环遍历工作表以将特定范围内的值复制到另一张工作表

Question

我开始学习我的 VBA Excel 之旅

我有一个项目要做：遍历工作表中的不同工作表并复制工作表中特定范围内的值并将这些值复制到一张工作表中。 我怎么能做到这一点？

Answer 1

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