VBA将字符串按前3个单词拆分两组 现有代码异常求解决方案

需求规则 #

待处理字符串为空格分隔的名称，拆分规则如下：

• 第一组提取前3个单词
• 第二组提取第3个单词之后的所有剩余内容
• 若字符串总单词数不足3个，第二组返回空值
  示例：
• 短字符串"Stack Over Flow"：第一组为Stack Over Flow，第二组为空
• 长字符串"Stack Over Flow Access VBA Coding"：第一组为Stack Over Flow，第二组为Access VBA Coding

原代码仅通过第一个空格的位置做左右截取，没有统计单词数量，也没有适配多单词、单词数不足3的场景，无法实现预期效果。

可直接运行的实现代码 #

Dim str As String
Dim wordArr As Variant
Dim group1 As String, group2 As String
Dim i As Long, currentWordCount As Long

' 读取组合框输入，先去除首尾多余空格
str = Trim(cmbName.Text)
If str = "" Then
    MsgBox "输入内容为空"
    Exit Sub
End If

' 按空格拆分字符串为单词数组
wordArr = Split(str, " ")
group1 = ""
group2 = ""
currentWordCount = 0

' 遍历数组拼接两组内容
For i = LBound(wordArr) To UBound(wordArr)
    ' 跳过连续空格产生的空元素，兼容多空格分隔的情况
    If Trim(wordArr(i)) <> "" Then
        currentWordCount = currentWordCount + 1
        If currentWordCount <= 3 Then
            ' 前3个单词拼入第一组
            If group1 <> "" Then group1 = group1 & " "
            group1 = group1 & wordArr(i)
        Else
            ' 第4个及之后的单词拼入第二组
            If group2 <> "" Then group2 = group2 & " "
            group2 = group2 & wordArr(i)
        End If
    End If
Next

' 弹出结果验证
MsgBox group1 & " - " & group2

逻辑说明 #

1. 预处理输入值：用Trim去除字符串首尾空格，避免首尾无效空格干扰拆分结果
2. 用Split函数按空格拆分字符串为数组，遍历过程自动跳过连续空格产生的空值，兼容输入存在多个连续空格的场景
3. 逐一遍历有效单词，计数小于等于3的拼接到第一组，计数大于3的拼接到第二组
4. 总单词数不足3个时，第二组不会被拼接任何内容，自然返回空值，符合规则要求

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