Excel如何拆分带方括号的字母列表生成所有组合并写入不同单元格

实现方式：VBA 自定义函数 #

该方案可适配任意多组方括号的复杂输入场景，自动生成所有拼接组合。

操作步骤 #

• 按Alt + F11打开VBA编辑器，右键当前工作簿名称 → 插入 → 模块
• 在模块编辑窗口粘贴如下代码：

Function GenerateCombinations(inputStr As String, Optional index As Long = 1) As Variant
    Dim regex As Object, matches As Object
    Dim options As Variant, result As Collection
    Dim i As Long, j As Long, temp As String, subRes
    
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.Pattern = "\[(.*?)\]"
    
    Set matches = regex.Execute(inputStr)
    If matches.Count = 0 Then
        GenerateCombinations = inputStr
        Exit Function
    End If
    
    Set result = New Collection
    options = Split(matches(0).SubMatches(0), ",")
    
    For i = LBound(options) To UBound(options)
        temp = Replace(inputStr, matches(0).Value, options(i), 1, 1)
        subRes = GenerateCombinations(temp)
        If IsArray(subRes) Then
            For j = LBound(subRes, 1) To UBound(subRes, 1)
                result.Add subRes(j, 1)
            Next j
        Else
            result.Add subRes
        End If
    Next i
    
    ReDim outputArr(1 To result.Count, 1 To 1)
    For i = 1 To result.Count
        outputArr(i, 1) = result(i)
    Next i
    
    If index = 0 Then
        GenerateCombinations = outputArr
    Else
        GenerateCombinations = IIf(index <= result.Count, outputArr(index, 1), "")
    End If
End Function

• 按Ctrl + S保存，关闭VBA编辑器返回Excel界面

使用方法 #

• 假设源字符串存放在A1单元格，选中需要输出结果的第一个单元格（比如B1）
• 输入公式=GenerateCombinations(A$1,ROW(A1))
• 下拉填充公式，直到出现空白单元格，即为所有组合

效果验证 #

示例1：输入为A[B,C,D]E时，输出结果依次为：

ABE
ACE
ADE

示例2：输入为A[B,C,D]E[F,G]时，输出结果依次为：

ABEF
ABEG
ACEF
ACEG
ADEF
ADEG

注意事项 #

• 保存文件时需选择Excel 启用宏的工作簿(*.xlsm)格式，否则VBA代码会丢失
• 该函数默认无组合数量上限，若输入枚举项过多可能导致计算卡顿，可根据需求自行添加数量限制

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