VBA实现多次字符串拼接：提取括号内内容并合并

需求说明 #

提取字符串中()包裹的内容，将所有提取结果用/拼接后写入指定单元格。示例输入：
Black Iron Oxide (CI 77499)/ Red Iron Oxide (CI 77491)/ Yellow Iron Oxide (CI 77492)
期望输出（含括号）：(CI 77499) / (CI 77491) / (CI 77492)
或（不含括号）：CI 77499 / CI 77491 / CI 77492

原代码问题 #

原代码每次提取括号内容后直接覆盖目标单元格的值，导致最终仅保留最后一次提取的结果，无法实现多内容拼接。

修正后的代码 #

Dim StartPos As Integer, EndPos As Integer, newcount As Integer, i As Integer, a As Integer
Dim StrEx As String, extractedText As String, concatenatedText As String

For i = rcount - Count To 4 Step -1
    StrEx = ActiveSheet.Cells(i, "G").Value
    newcount = Len(StrEx) - Len(Replace(StrEx, "(", ""))
    concatenatedText = "" ' 处理每行前初始化拼接字符串
    
    If newcount > 0 Then
        For a = 1 To newcount Step 1
            StartPos = InStr(StrEx, "(")
            EndPos = InStr(StrEx, ")")
            
            ' 提取带括号的内容，如需无括号，替换为：extractedText = Mid(StrEx, StartPos + 1, EndPos - StartPos - 1)
            extractedText = Mid(StrEx, StartPos, EndPos - StartPos + 1)
            
            ' 拼接内容：首个元素直接赋值，后续元素加分隔符
            concatenatedText = IIf(concatenatedText = "", extractedText, concatenatedText & " / " & extractedText)
            
            ' 移除已处理的括号片段，避免重复提取
            StrEx = Replace(StrEx, extractedText, "", 1)
        Next a
        
        ' 所有内容提取完成后，写入目标单元格
        ActiveSheet.Cells(i, lastcol0 + 1).Value = concatenatedText
    End If
Next i

关键修改点 #

• 新增concatenatedText变量，专门用于累积拼接每行的提取结果
• 使用IIf函数简化拼接逻辑：判断是否为首个元素，决定是否添加分隔符
• 将写入目标单元格的操作移至内层循环结束后，避免每次覆盖内容
• 修正变量声明，明确每个变量的数据类型（原代码中多变量默认是Variant，易引发潜在问题）
• 可通过修改extractedText的提取语句，自由选择是否保留括号

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