在Excel VBA中动态复制两张不同工作表的数据,可以使用以下步骤:
完整的代码如下:
Sub CopyDataBetweenSheets()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim sourceRange As Range
Dim targetRange As Range
' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Worksheets("Sheet1")
Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
' 设置源数据范围
Set sourceRange = sourceSheet.Range("A1:C10")
' 设置目标数据起始单元格
Set targetRange = targetSheet.Range("D1")
' 复制数据
sourceRange.Copy targetRange
End Sub
这样,源工作表中的数据就会被动态复制到目标工作表的指定位置。请根据实际情况修改工作表名称和数据范围。
领取专属 10元无门槛券
手把手带您无忧上云