Excel 在图纸中循环以将特定范围内的值复制到另一个图纸

我开始在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

将ws设置为工作表
将目标变暗为工作表
设置目标=要复制到的工作表（“目标工作表名称在此处”）'
对于ThisWorkbook.worksheets中的每个ws循环浏览工作表
如果ws.name target.name，则“如果不是目标工作表，则。。。
'将范围复制到A列的下一个空行中
ws.range（“此处的范围”）.copy target.range（“A”和rows.count）.end（xlup）.offset（1,0）
如果结束
下一个ws

您是否尝试过将一个值的宏从一张图纸记录到另一张图纸？您还必须循环浏览工作表集合中的工作表。