Excel VBA:从另一个工作簿循环中复制和粘贴特定单元格

Sub CopyPasteCells()
    Dim sourceWorkbook As Workbook
    Dim destinationWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim cell As Range
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿路径")
    ' 打开目标工作簿
    Set destinationWorkbook = Workbooks.Open("目标工作簿路径")
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    Set destinationWorksheet = destinationWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceWorksheet.Range("源范围")
    Set destinationRange = destinationWorksheet.Range("目标范围")
    
    ' 循环复制和粘贴单元格
    For Each cell In sourceRange
        destinationRange.Value = cell.Value
        Set destinationRange = destinationRange.Offset(1, 0)
    Next cell
    
    ' 关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    destinationWorkbook.Close SaveChanges:=True
End Sub