动态嵌套 For 循环

Question

首先，我为开始一个新线程而道歉，但原始线程变得混乱，因为我无法很好地表达我的要求（链接到原始线程：Excel VBA 中自动筛选的动态嵌套循环）。但现在我实际上已经按照我喜欢的方式编写了程序，除了使用 switch 语句而不是更动态地使用嵌套循环。

编辑：
RSum 用于存储范围和布尔值。用户选择列的标题单元格，并选择在汇总时是否要获取该列的总和或唯一计数。这允许这些对象的集合以允许对多个列进行汇总。这个输入对于动态化来说还不错。下一个输入以 rtemp 开头并以 array1 结尾，用户再次选择列的标题单元格，但这会获取该列中的值并将唯一列表保存到 array1。使用此列表，for 循环使用数组的值作为自动过滤器的条件来循环遍历数组。对于自动筛选后循环中的每个步骤，使用 SumThisA 将 RSum 对象集合作为输入来计算摘要。数据按列排列，其中每行都是唯一的记录。

所以问题是，对于下面的代码，我希望用户能够选择要汇总的类别数量，有一个弹出窗口来填写这些范围（可以弄清楚），然后运行一个过滤器，如下所示：

for i = 0 to UBound(array1)
    Autofilter criteria1:=array1(i)
    for j = 0 to UBound(array2)
        Autofilter criteria1:=array2(j)
        ......
            for x = 0 to UBound(arrayx)
                Autofilter criteria1:=arrayx(x)
                aSum(i,j,....x) = somefunction

现在我知道我需要使用递归函数，但以前从未使用过递归函数，并且该程序有些复杂，这超出了我的理解范围。有人能帮助解释如何在这种情况下使用它吗？另外，由于该程序的通用性，它对许多人来说可能是一个有用的工具。

'---------Initialize Arrays---------------'
t = sMax - 1
Dim aSum()
ReDim aSum(UBound(arr1), t)  

'---------------------Perform Summary----------------'
For i = LBound(arr1) To UBound(arr1)
If i = 0 Then
    Data.AutoFilter field:=afield, Criteria1:=arr1, Operator:=xlFilterValues
Else
    Data.AutoFilter field:=afield, Criteria1:=arr1(i)
End If
temp = SumThisA(SumValues, sMax)
    For j = LBound(temp) To UBound(temp)
        aSum(i, j) = temp(j)
    Next j
Next i  

总金额：
1.数组A(1)--------100
- 数组B(1)------30
- 数组B(2)------70
2.数组A(2)--------200
- 数组B(1)-----120
- 数组B(2)------80
3.总计------------300

Answer 1

这是一个非常笨拙的递归示例，说明您似乎想做的事情。我伪造了一些标准，所以不要纠结于我如何测试它，重要的是函数 Filter 如何递归运行。如果我能更准确地指出您想要的东西，我就可以更精确地制作它，并且减少硬编码。

测试工具：

Public Sub Test()

Dim FilteredArray As Variant, cArray As Variant, working Array As Variant
Dim criteria As Integer

criteria = 1
ReDim criteriaArray(1 To 2)
cArray(1) = Range("C1").Value
cArray(2) = Range("C2").Value
Set workingArray = Range("A1:A7")
FilteredArray = Filter(workingArray, 7, cArray, criteria)    
Range("D1") = FilteredArray    

End Sub

递归过滤器功能：

Public Function Filter(workingArray As Variant, index As Integer, _
                       criteriaArray As Variant, criteria) As Variant

Dim tempArray As Variant, i As Integer

ReDim tempArray(1 To 1)
For i = 1 To index
  If Mid(workingArray(i), criteria, 1) = criteriaArray(criteria) Then
    ReDim Preserve tempArray(1 To UBound(tempArray) + 1)
    tempArray(UBound(tempArray) - 1) = workingArray(i)
  End If
Next i
ReDim Preserve tempArray(1 To UBound(tempArray) - 1)

If criteria < 2 Then
  Filter = Filter(tempArray, UBound(tempArray), criteriaArray, criteria + 1)
Else
  Filter = tempArray
End If

End Function

Answer 2

您是否考虑过使用数据透视表？您的要求似乎非常接近该功能......