如何将VBA用户窗体组合框新增值添加到工作表？

先说说你原代码里的几个关键问题：

• CoBJobList1.ListIndex > -1这个判断完全错了：用户输入不在原有列表里的新值时，组合框的ListIndex会是-1，这时候代码直接跳过了后续的查找和添加逻辑，等于根本没处理新值的情况，这是核心问题。
• 查找范围多包含了一行空行：你定义的EmptyRow是最后一行数据+1，写的D2:D" & EmptyRow其实包含了要新增的空行，应该改成只查找已有的数据区域。
• Find方法没指定精确匹配参数：默认情况下Find可能匹配单元格里的部分内容，比如列表里有"工程师"，输入"工程"也会被判定为已存在，得加参数确保完全匹配。

修正后的单组合框代码 #

Dim ws As Worksheet: Set ws = Sheets("Lists")
Dim lastRow As Long
Dim foundVal As Range
Dim inputVal As String

inputVal = Trim(CoBJobList1.Value) ' 去掉首尾空格，避免空格导致的误判
If inputVal = "" Then Exit Sub ' 空值直接跳过，不处理

lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
' 精确查找已有列表区域（从D2到最后一行数据）
Set foundVal = ws.Range("D2:D" & lastRow).Find( _
    What:=inputVal, _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    MatchCase:=False) ' 不区分大小写，需要区分的话改成True

If foundVal Is Nothing Then
    ' 没找到就把新值添加到列表末尾
    ws.Cells(lastRow + 1, "D").Value = inputVal
    ' 可选：更新组合框的下拉列表，让新值下次能直接选择
    CoBJobList1.AddItem inputVal
End If

适配多个组合框的循环方案 #

如果要批量处理多个组合框（比如组合框1对应D列、组合框2对应E列），可以用数组把组合框和对应列关联起来，循环处理：

Dim ws As Worksheet: Set ws = Sheets("Lists")
Dim ctrlPairs As Variant
Dim i As Long
Dim lastRow As Long
Dim foundVal As Range
Dim inputVal As String

' 定义组合框与对应列的配对：数组每个元素是(组合框对象, 列名/列号)
ctrlPairs = Array( _
    Array(CoBJobList1, "D"), _
    Array(CoBJobList2, "E"), _
    Array(CoBJobList3, "F") _
)

For i = LBound(ctrlPairs) To UBound(ctrlPairs)
    inputVal = Trim(ctrlPairs(i)(0).Value)
    If inputVal = "" Then GoTo NextCtrl ' 空值跳过
    
    lastRow = ws.Cells(ws.Rows.Count, ctrlPairs(i)(1)).End(xlUp).Row
    Set foundVal = ws.Range(ctrlPairs(i)(1) & "2:" & ctrlPairs(i)(1) & lastRow).Find( _
        What:=inputVal, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False)
    
    If foundVal Is Nothing Then
        ws.Cells(lastRow + 1, ctrlPairs(i)(1)).Value = inputVal
        ctrlPairs(i)(0).AddItem inputVal ' 更新组合框下拉列表
    End If
NextCtrl:
Next i

额外提示 #

• 建议把列表区域设置成Excel表格（ListObject），这样添加新数据后，组合框的数据源会自动更新，不用手动执行AddItem。
• 如果需要严格区分大小写，把MatchCase:=False改成True即可。

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