将单元格值复制到定义的工作表和单元格引用(循环)

Sub CopyCellValues()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceCell As Range
    Dim targetCell As Range
    
    ' 定义源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 定义源单元格和目标单元格
    Set sourceCell = sourceSheet.Range("源单元格引用")
    Set targetCell = targetSheet.Range("目标单元格引用")
    
    ' 循环复制单元格值
    Do While sourceCell.Value <> ""
        targetCell.Value = sourceCell.Value
        
        ' 移动到下一个单元格
        Set sourceCell = sourceCell.Offset(1, 0)
        Set targetCell = targetCell.Offset(1, 0)
    Loop
End Sub