Question

如何穷举出一组数字的所有可能的组合

若以下回答无法解决问题，邀请你更新回答

Answer 1

代码及注释如下：
Sub a()
Dim i%, j%, k%'定义变量为整理
k = 1'从1开始显示所有组合
For i = 1 To [a65536].End(3).Row'i从1到A列从底往上第一个不为空的行号为止循环
For j = 1 To [d65536].End(3).Row'j从1到D列从底往上第一个不为空的行号为止循环
Range("A" i ":C" i).Copy Range("H" k)'i行A列到C列区域，复制到H行从第1行开始的区域
Range("D" j ":F" j).Copy Range("K" k)'j行D列到F列区域，复制到K行从第一样开始的区域
k = k + 1'每完成上述操作，行数增加1
Next j
Next i
End Sub