尝试使用cell.offset在源工作表和目标工作表的起始行不同的工作表之间进行复制

Sub CopyData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1")
    Set targetRange = targetSheet.Range("A1")
    
    ' 复制数据
    targetRange.Value = sourceRange.Value
    
    ' 调整源范围和目标范围的偏移量
    Set sourceRange = sourceRange.Offset(1, 0) ' 行偏移量为1，列偏移量为0
    Set targetRange = targetRange.Offset(1, 0) ' 行偏移量为1，列偏移量为0
    
    ' 继续复制数据
    targetRange.Value = sourceRange.Value
    
    ' 可以根据需要继续调整偏移量并复制数据
    
    ' 清除对象引用
    Set sourceSheet = Nothing
    Set targetSheet = Nothing
    Set sourceRange = Nothing
    Set targetRange = Nothing
End Sub