Excel VBA代码设置新复制工作表Range值失效及Debug.Print无输出问题求助

咱们先逐个解决你遇到的两个核心问题：新工作表C11始终为空，以及Debug.Print没有输出的问题。

1. 新工作表C11为空的原因与修复 #

你的代码里有几个容易被忽略的问题，导致赋值失效：

隐藏的语法错误 #

首先，CommandButton1_Click过程里缺少了End If，这会导致代码编译不通过（虽然你说MsgBox能显示，大概率是实际编写时漏写了），这是必须补上的。另外，工作表命名语句newSheet.Name = "OM" & & Name_sheet里多了一个&，也是语法错误，得修正。

未明确指定工作表对象 #

VBA中，未指定工作表的Range默认会指向当前激活的工作表，但复制工作表后，激活状态可能因为操作细节变化出现歧义。最好的做法是用变量明确引用原工作表和新工作表，避免依赖ActiveSheet的状态。

修正后的完整代码如下：

Private Sub CommandButton1_Click()
    If CheckBox1.Value = True Then
        Call do_OM
    End If ' 补上缺失的End If
End Sub

Private Sub do_OM()
    Dim Name_sheet As String
    Dim row_se As Long
    Dim Vl_1 As String
    Dim originalSheet As Worksheet
    Dim newSheet As Worksheet
    
    ' 明确获取按钮/复选框所在的原工作表
    Set originalSheet = CheckBox1.Parent
    row_se = CheckBox1.TopLeftCell.Row
    ' 明确读取原工作表D列对应行的值
    Vl_1 = originalSheet.Range("D" & row_se).Value
    
    Name_sheet = originalSheet.Name
    ' 复制工作表并保存新表的引用
    Sheets("Or_Mission").Copy after:=Sheets(Sheets.Count)
    Set newSheet = ActiveSheet
    ' 修正命名时的多余&
    newSheet.Name = "OM" & Name_sheet
    
    ' 明确给新工作表的C11单元格赋值
    newSheet.Range("C11").Value = Vl_1
    
    MsgBox "新表C11值：" & newSheet.Range("C11").Value & " | 原D列值：" & Vl_1
    Debug.Print "新表C11值：" & newSheet.Range("C11").Value & " | 原D列值：" & Vl_1
    
    ActiveWorkbook.Save
End Sub

关键修复点说明 #

• 用CheckBox1.Parent直接获取控件所在的原工作表，避免原工作表未激活时的引用错误
• 复制新表后用newSheet变量保存引用，后续所有操作都通过这个变量，确保操作的是目标新表
• 赋值时明确写newSheet.Range("C11").Value，彻底消除工作表引用的歧义

2. Debug.Print无输出的解决方法 #

Debug.Print的内容不会弹窗显示，而是输出到VBA编辑器的立即窗口里。如果你看不到输出：

• 按Alt+F11打开VBA编辑器
• 点击顶部菜单「视图」→「立即窗口」（或者直接按Ctrl+G快捷键）
• 再次运行代码，就能在立即窗口里看到Debug.Print的内容了

这样修改后，新工作表的C11就能正确赋值，Debug.Print也能正常输出调试信息啦。

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