实现Userform多员工ID批量录入的VBA代码需求

修改思路 #

1. 支持员工ID输入框通过逗号、空格或换行分隔多个ID
2. 拆分输入的ID列表，过滤空值确保每个ID有效
3. 循环遍历每个有效ID，将ComboBox中的统一信息同步写入对应行
4. 保留原必填项校验逻辑，新增有效ID数量检查

修改后的完整代码 #

Private Sub CommandButton1_Click()
    Dim sh As Worksheet, msg As String
    Dim empIDs As Variant, id As Variant
    Dim lastRow As Long
    
    ' 检查必填字段
    If Len(TextBox1.Value) = 0 Then
        msg = msg & vbLf & " - 员工ID"
    End If
    
    If Len(msg) > 0 Then
        MsgBox "以下字段为必填项：" & msg, vbOKOnly + vbCritical, "信息缺失"
        Exit Sub
    End If
    
    ' 拆分员工ID，支持逗号、空格、换行分隔
    empIDs = Split(Replace(Replace(TextBox1.Value, vbLf, ","), " ", ","), ",")
    
    ' 过滤空ID
    empIDs = Filter(empIDs, "", False)
    
    ' 检查是否有有效ID
    If UBound(empIDs) = -1 Then
        MsgBox "请输入有效的员工ID", vbOKOnly + vbExclamation, "无效输入"
        Exit Sub
    End If
    
    ' 写入数据到工作表
    Set sh = ThisWorkbook.Sheets("Employee Information")
    lastRow = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    ' 循环每个员工ID写入记录
    For Each id In empIDs
        sh.Cells(lastRow, "A").Value = id
        sh.Cells(lastRow, "B").Resize(1, 11).Value = Array( _
            ComboBox1.Value, ComboBox2.Value, ComboBox3.Value, _
            ComboBox4.Value, ComboBox5.Value, ComboBox6.Value, _
            ComboBox7.Value, ComboBox8.Value, ComboBox9.Value, _
            ComboBox10.Value, ComboBox11.Value)
        lastRow = lastRow + 1
    Next id
    
    MsgBox "已成功添加 " & UBound(empIDs) + 1 & " 条员工信息", vbOKOnly + vbInformation, "操作成功"
    Unload Me
End Sub

关键代码说明 #

• ID拆分逻辑：通过Replace将换行、空格统一替换为逗号，再用Split拆分为数组，最后用Filter移除空值
• 循环写入：获取工作表最后一行后，遍历每个有效ID，依次写入A列，同时将ComboBox的信息写入B到L列
• 反馈优化：弹窗提示成功添加的记录数量，让用户直观了解操作结果

使用提示 #

• 在员工ID输入框中，可通过以下方式输入多个ID：
  • 逗号分隔：001,002,003
  • 空格分隔：001 002 003
  • 换行分隔：每行输入一个ID

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