如何将单元格中的单词逐项加载到 UserForm 的 ComboBox？

2026-11-06数据阿明

结论

可以把单元格内容作为字符串传给 FillComboBox，再用 Split 按空格拆分，并通过 ComboBox.AddItem 逐个添加选项。你给出的代码已经用了这个方法。建议明确读取单元格的 .Value2，并将 Rows.Count 限定到对应的工作表。

调整后的代码

Private Sub UserForm_Activate()
    Dim ws As Worksheet
    Dim lastCell As Range

    Set ws = ActiveSheet
    Set lastCell = ws.Cells(ws.Rows.Count, 1).End(xlUp)

    FillComboBox CStr(lastCell.Value2)
End Sub

Private Sub FillComboBox(ByVal sentence As String)
    Dim words() As String
    Dim i As Long

    ' 将逗号和句号替换为空格，再合并连续空格
    sentence = Replace(sentence, ",", " ")
    sentence = Replace(sentence, ".", " ")
    sentence = Application.Trim(sentence)

    Me.ComboBox_VerseWords.Clear
    If Len(sentence) = 0 Then Exit Sub

    words = Split(sentence, " ")
    For i = LBound(words) To UBound(words)
        Me.ComboBox_VerseWords.AddItem words(i)
    Next i
End Sub

这里假设单词位于当前活动工作表的 A 列。ws.Cells(ws.Rows.Count, 1).End(xlUp) 会找到 A 列最后一个非空单元格。.Value2 用来读取单元格的值，CStr 则将其转换为字符串。Application.Trim 会去掉首尾空格并合并连续空格，避免 Split 生成空选项。每调用一次 AddItem，ComboBox 就会新增一项。

注意事项

Rows.Count 应与目标工作表关联。如果数据在固定工作表中，可以将 ActiveSheet 换成对应工作表，例如 ThisWorkbook.Worksheets("Sheet1")。工作表名称需按实际情况填写。
示例将逗号和句号作为分隔符。如果数据还包含分号、问号或制表符，可以按需先替换这些字符。
这段逻辑适用于以空格分隔单词的句子。如果单元格使用其他分隔方式，需要相应调整 Split 的分隔符。
如果要将选项显示为按钮，可以在 UserForm 中动态创建 OptionButton 控件。单词数量不固定时，使用 ComboBox 通常更直接。