将单元格值复制到指定工作表和单元格引用（循环实现）

我来帮你搞定这个批量复制的需求！下面是扩展后的VBA代码，不仅能循环处理A1:C200的所有行（直到遇到空行就停止），还能让你选择复制单元格的值或者公式，完全满足你的要求。

核心功能亮点 #

• 自动遍历A1到C200的每一行，只要A列（目标工作表名）不为空就继续执行，遇到空行直接停止
• 支持两种复制模式：仅复制单元格数值，或者完整保留原单元格的公式结构
• 加入了错误检查机制，比如目标工作表不存在、单元格引用无效时，会弹出提示并跳过该行，避免代码直接报错崩溃

Sub BatchCopyContent()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim copyMode As VbMsgBoxResult
    
    ' 设置源工作表（这里默认当前活动表是存放A1:C200的表，可根据实际修改）
    Set wsSource = ActiveSheet
    
    ' 让用户选择复制模式
    copyMode = MsgBox("选择复制模式：" & vbCrLf & vbCrLf & _
                      "点击【是】：仅复制单元格值" & vbCrLf & _
                      "点击【否】：复制单元格公式", vbYesNoCancel + vbQuestion, "复制模式选择")
    
    If copyMode = vbCancel Then Exit Sub ' 用户取消则直接退出
    
    ' 获取实际最后一行（取A列非空行的最后一行，最多限制到200行）
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    lastRow = Application.Min(lastRow, 200)
    
    ' 循环处理每一行
    For i = 1 To lastRow
        ' 检查当前行A列是否为空，为空则终止循环
        If wsSource.Cells(i, "A").Value = "" Then Exit For
        
        ' 尝试获取目标工作表
        On Error Resume Next
        Set wsTarget = ThisWorkbook.Worksheets(wsSource.Cells(i, "A").Value)
        On Error GoTo 0
        
        ' 目标工作表不存在的情况
        If wsTarget Is Nothing Then
            MsgBox "第" & i & "行的目标工作表【" & wsSource.Cells(i, "A").Value & "】不存在，跳过该行。", vbExclamation
            Set wsTarget = Nothing
            Continue For
        End If
        
        ' 获取目标单元格引用
        Dim targetCell As Range
        On Error Resume Next
        Set targetCell = wsTarget.Range(wsSource.Cells(i, "B").Value)
        On Error GoTo 0
        
        ' 目标单元格引用无效的情况
        If targetCell Is Nothing Then
            MsgBox "第" & i & "行的目标单元格引用【" & wsSource.Cells(i, "B").Value & "】无效，跳过该行。", vbExclamation
            Set targetCell = Nothing
            Set wsTarget = Nothing
            Continue For
        End If
        
        ' 根据选择的模式执行复制
        If copyMode = vbYes Then
            ' 仅复制值
            targetCell.Value = wsSource.Cells(i, "C").Value
        Else
            ' 复制公式
            targetCell.Formula = wsSource.Cells(i, "C").Formula
        End If
        
        ' 清空对象变量，避免内存泄漏
        Set targetCell = Nothing
        Set wsTarget = Nothing
    Next i
    
    MsgBox "批量复制完成！", vbInformation
End Sub

代码关键细节解析 #

• 复制模式选择：通过弹窗让你直观选择复制值还是公式，不用手动修改代码
• 行数控制：既满足你要求的最多处理到200行，又能自动在A列出现空行时停止，不会做无用功
• 错误处理：针对常见的异常场景（工作表不存在、单元格引用错误）做了处理，让代码更健壮
• 对象清理：每次循环后清空对象变量，养成良好的VBA编码习惯

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击项目窗口中的工作簿名称 → 选择「插入」→「模块」
3. 将上面的代码粘贴到新建的模块中
4. 返回Excel界面，按下Alt + F8，选择BatchCopyContent宏并执行
5. 根据弹窗提示选择复制模式，等待执行完成即可

内容的提问来源于stack exchange，提问作者mjayna270