如何在VBA脚本中实现无重复嵌套循环遍历数组整数组合

兄弟，你现在用36层嵌套For循环的方式确实能实现需求，但这代码写起来要疯，以后要改个范围或者加个新位置更是灾难——完全不具备扩展性啊！咱们换个更优雅的方式，用递归或者动态生成组合的思路来搞定。

核心思路 #

先把每个位置的「最小值, 最大值」整理成一个二维数组，然后通过递归遍历每个位置的所有可能值，自动生成所有组合。不管你是36个还是N个位置，都能轻松应对。

VBA实现示例（适配你的代码风格） #

首先，把所有位置的范围存成一个数组：

Dim ranges As Variant
ranges = Array( _
    Array(MinG1, MaxG1), _
    Array(MinG2, MaxG2), _
    ' ... 依次补充到g36的范围 ...
    Array(MinG36, MaxG36) _
)

然后写一个递归函数来遍历所有组合：

Sub GenerateAllCombinations(ranges As Variant, currentCombination As Variant, depth As Integer)
    Dim minVal As Integer, maxVal As Integer
    Dim i As Integer
    
    ' 递归终止条件：已经处理完所有位置，现在可以对当前组合做操作
    If depth = UBound(ranges) + 1 Then
        ' 这里替换成你实际要执行的逻辑，比如计算、存储、打印等
        Debug.Print "当前组合：" & Join(currentCombination, ", ")
        Exit Sub
    End If
    
    ' 获取当前位置的最小和最大值
    minVal = ranges(depth)(0)
    maxVal = ranges(depth)(1)
    
    ' 遍历当前位置的所有可能值，递归处理下一个位置
    For i = minVal To maxVal
        currentCombination(depth) = i
        GenerateAllCombinations ranges, currentCombination, depth + 1
    Next i
End Sub

最后调用这个函数：

Sub Main()
    Dim ranges As Variant
    Dim currentCombination As Variant
    Dim totalPositions As Integer
    
    ' 初始化所有位置的范围（替换成你的实际MinG/MaxG值）
    ranges = Array( _
        Array(1, 3), Array(2, 5), ' 示例值，替换成你的MinG1到MaxG36
        ' ... 补充剩下的34个位置的范围 ...
        Array(0, 4) _
    )
    
    totalPositions = UBound(ranges) + 1
    ' 初始化存储当前组合的数组，长度和位置数一致
    ReDim currentCombination(0 To totalPositions - 1)
    
    ' 启动递归遍历
    GenerateAllCombinations ranges, currentCombination, 0
End Sub

为什么这方法更好？ #

• 扩展性拉满：不管是加位置还是改某个位置的范围，只需要修改ranges数组，不用动循环结构
• 代码更简洁：36层循环变成几行递归逻辑，可读性和维护性提升N个档次
• 通用型强：不管是10个还是100个位置，逻辑完全一样

⚠️ 注意：如果每个位置的数值范围跨度大，组合数会指数级增长（比如每个位置有10个可能，36个位置就是10^36种组合），这时候电脑根本跑不完，一定要确保你的实际场景中组合数是可控的！

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