循环通过两个范围并自动填充另一个工作表的VBA代码建议

Sub FillData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim sourceCell As Range
    Dim targetCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("源范围的起始单元格:源范围的结束单元格")
    Set targetRange = targetSheet.Range("目标范围的起始单元格:目标范围的结束单元格")
    
    ' 清空目标范围的数据
    targetRange.ClearContents
    
    ' 循环遍历源范围并填充目标范围
    For Each sourceCell In sourceRange
        ' 根据具体需求进行数据处理和填充
        ' 这里只是简单地将源范围的值复制到目标范围对应位置
        Set targetCell = targetRange.Cells(sourceCell.Row - sourceRange.Row + 1, sourceCell.Column - sourceRange.Column + 1)
        targetCell.Value = sourceCell.Value
    Next sourceCell
End Sub