VBA循环:将范围从多个工作表复制到多个设置位置

Sub CopyRange()
    Dim srcWorkbook As Workbook
    Dim srcWorksheet As Worksheet
    Dim destWorkbook As Workbook
    Dim destWorksheet As Worksheet
    Dim srcRange As Range
    Dim destRange As Range
    
    ' 定义源范围和目标位置范围
    Set srcWorkbook = ThisWorkbook ' 源工作簿
    Set srcWorksheet = srcWorkbook.Worksheets("源工作表") ' 源工作表
    Set destWorkbook = ThisWorkbook ' 目标工作簿
    Set destWorksheet = destWorkbook.Worksheets("目标工作表") ' 目标工作表
    Set srcRange = srcWorksheet.Range("A1:B10") ' 源范围
    Set destRange = destWorksheet.Range("C1:D10") ' 目标位置范围
    
    ' 遍历每个源工作表
    For Each srcWorksheet In srcWorkbook.Worksheets
        ' 复制源范围到目标位置
        srcRange.Copy destRange
        
        ' 更新目标位置范围，使其指向下一行
        Set destRange = destRange.Offset(srcRange.Rows.Count, 0)
    Next srcWorksheet
End Sub