用于获取所有组合(如果它们等于一个单元格)的vba代码

Sub GetAllCombinations()
    Dim rng As Range
    Dim cell As Range
    Dim combinations As Collection
    Dim combination As Variant
    Dim result As String
    
    ' 选择要获取组合的单元格范围
    Set rng = Range("A1:A3")
    
    ' 初始化组合集合
    Set combinations = New Collection
    
    ' 递归生成所有组合
    GenerateCombinations rng, combinations, "", 1
    
    ' 遍历组合集合并输出结果
    For Each combination In combinations
        result = result & combination & vbCrLf
    Next combination
    
    ' 显示结果
    MsgBox result
End Sub

Sub GenerateCombinations(rng As Range, combinations As Collection, currentCombination As String, currentRow As Integer)
    Dim cell As Range
    
    ' 遍历当前行的单元格
    For Each cell In rng.Rows(currentRow).Cells
        ' 将当前单元格的值添加到当前组合中
        Dim newCombination As String
        newCombination = currentCombination & cell.Value
        
        ' 如果已经到达最后一行，则将当前组合添加到组合集合中
        If currentRow = rng.Rows.Count Then
            combinations.Add newCombination
        Else
            ' 继续递归生成下一行的组合
            GenerateCombinations rng, combinations, newCombination, currentRow + 1
        End If
    Next cell
End Sub