求助：VBA实现UserForm数据导入Excel工作表的问题及解决代码

需求背景 #

我制作了一个用于录入员工信息的UserForm，包含员工姓名输入框和多个培训项目复选框，核心需求如下：

• 用户输入的员工姓名需填充至工作表中合并的L列与M列
• 勾选的培训复选框需在对应工作表列中填入"x"

注意：工作表内存在两组表头一致的数据集，上方为领班（Foreman）数据，下方为熟练工（Journeymen）数据，因此代码通过引用AZ2单元格获取上方数据集的最后一行位置。

最初编写的代码无法完成员工姓名填充功能，以下是初始故障代码及调试后的可用代码：

初始故障代码 #

Private Sub Submit_Click()
    Set act = ThisWorkbook.ActiveSheet
    bot_row = act.Range("AZ2")
    act.Range("L" & bot_row & ":AB" & bot_row).Insert Shift:=xlShiftDown
    act.Range("L" & bot_row & ":M" & bot_row).Value = EmpNameTextBox.Text
End Sub

调试完成的可用代码 #

Private Sub Submit_Click()
    Dim act As Worksheet
    Set act = ThisWorkbook.ActiveSheet
    bot_row = act.Range("AZ2")
    
    act.Range("L" & bot_row & ":AB" & bot_row).Insert Shift:=xlShiftDown
    act.Range("L9:AB9").Copy
    act.Range("L" & bot_row & ":AB" & bot_row).PasteSpecial xlPasteFormats
    act.Range("L" & bot_row & ":AB" & bot_row).PasteSpecial xlPasteFormulas
    Range("P" & bot_row & ":AB" & bot_row).ClearContents
    Range("L" & bot_row) = EmpName.Value
    Range("P" & bot_row) = EmpPhone.Value
    Dim cBox As Control
    For Each cBox In Me.Controls
      If TypeOf cBox Is msforms.CheckBox Then
         '测试用弹窗（可注释）
         'MsgBox "Box " & cBox.Caption & " has a click value = " & cBox.Value
            If cBox.Value Then
            If cBox.Caption = "Competent" Then
                Range("Q" & bot_row).Value = "x"
            ElseIf cBox.Caption = "OSHA 30hr" Then
                Range("R" & bot_row).Value = "x"
            ElseIf cBox.Caption = "OSHA 10hr" Then
                Range("S" & bot_row).Value = "x"
            ElseIf cBox.Caption = "CPR" Then
               Range("T" & bot_row).Value = "x"
            ElseIf cBox.Caption = "Hand Signal" Then
               Range("U" & bot_row).Value = "x"
            ElseIf cBox.Caption = "Rigging" Then
               Range("V" & bot_row).Value = "x"
            ElseIf cBox.Caption = "Asbestos" Then
               Range("W" & bot_row).Value = "x"
            ElseIf cBox.Caption = "Certa Torch" Then
               Range("X" & bot_row).Value = "x"
            ElseIf cBox.Caption = "Scaffold" Then
               Range("Y" & bot_row).Value = "x"
            ElseIf cBox.Caption = "Fork/Lull" Then
               Range("Z" & bot_row).Value = "x"
            ElseIf cBox.Caption = "Manlift" Then
               Range("AA" & bot_row).Value = "x"
            ElseIf cBox.Caption = "ATV" Then
               Range("AB" & bot_row).Value = "x"
            End If
         End If
           
      End If
    Next

    Unload Me
End Sub

故障修复要点 #

1. 变量类型声明：补充Dim act As Worksheet明确变量类型，避免对象引用歧义
2. 合并单元格赋值：合并单元格的内容存储在左上角单元格，因此改为直接给Range("L" & bot_row)赋值
3. 格式与公式继承：新增行复制原有数据行（L9:AB9）的格式和公式，确保新行样式与计算逻辑一致
4. 培训项目映射：添加遍历复选框的逻辑，将勾选的培训项目对应到工作表指定列并填入"x"
5. 控件名称匹配：调整控件引用名称，确保与UserForm内实际控件名称一致（如EmpName.Value替代EmpNameTextBox.Text）

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