vba怎样用指定3个数组合，每一行有4个数

raylenewu

求代码，请参考图片

raylenewu

修正 ：例如在b17那里，前两位数字固定是1 2  ，后面两位只能是 2 2 ， 不可以是1 1或  2 1 ，

yjh_27

参见附件。

lsdongjh

1. Sub Test()
   
2.     Dim arrList As Variant
   
3.     Dim arrResult As Variant
   
4. 
   
5. '    arrList = Array(0, 1, 2, 3)
   
6. '    myCombination arrList, 0, 0, 4, arrResult
   
7.     arrList = Array(0, 1, 2)
   
8.     myCombination arrList, 0, 0, 3, arrResult
   
9.    
   
10.     arrResult = Application.WorksheetFunction.Transpose(arrResult)
    
11.    
    
12.     Sheet1.UsedRange.Clear
    
13.     Sheet1.Range("A1").Resize(UBound(arrResult) - 1, UBound(arrResult, 2)) = arrResult
    
14.     MsgBox "OK"
    
15. End Sub
    
16. Function myCombination(arrList As Variant, lngSelID As Long, lngResultID As Long, lngMax As Long, ByRef arrResult As Variant)
    
17.     Dim lngCur As Long, lngRow As Long, lngCol As Long
    
18.     If lngResultID > lngMax Then
    
19.         lngRow = UBound(arrResult, 2) + 1
    
20.         ReDim Preserve arrResult(0 To lngMax, 0 To lngRow)
    
21.         For lngCol = LBound(arrResult) To UBound(arrResult)
    
22.             arrResult(lngCol, lngRow) = arrResult(lngCol, lngRow - 1)
    
23.         Next
    
24.     Else
    
25.         If IsArray(arrResult) = False Then ReDim arrResult(0 To lngMax, 0 To 0)
    
26.         
    
27.         For lngCur = lngSelID To UBound(arrList)
    
28.             lngRow = UBound(arrResult, 2)
    
29.             arrResult(lngResultID, lngRow) = arrList(lngCur)
    
30.             myCombination arrList, lngCur, lngResultID + 1, lngMax, arrResult
    
31.         Next
    
32.     End If
    
33. End Function

复制代码

raylenewu

lsdongjh 发表于 2020-1-9 17:35

感谢！
大神，能解释一下function 代码的意思吗？本人菜鸟，没看懂。
myCombination arrList, 0, 0, 3, arrResult
myCombination(arrList As Variant, lngSelID As Long, lngResultID As Long, lngMax As Long, ByRef arrResult As Variant)
为什么要设置，0,0,3 ？
其他内容也没看懂？

lsdongjh

递归算法
从arrList有序数组的索引下限开始，填充索引值为0至lngMax的arrResult数组

lsdongjh

第一个0表示从列表下限开始，后面的0、3表示结果集索引值上下限为0—3

raylenewu

lsdongjh 发表于 2020-1-9 22:41
第一个0表示从列表下限开始，后面的0、3表示结果集索引值上下限为0—3

谢谢。能再帮我写一下代码吗？
我上传了附件

lsdongjh

    arrList = Array("D0", "D1", "D2")
    myCombination arrList, 0, 0, 3, arrResult

raylenewu

yjh_27 发表于 2020-1-9 16:18
参见附件。

还有中文解释，太谢谢了，不过代码好长，而我又是菜鸟，慢慢理解。