Excel VBA 单元格 排列组合 问题

早安-小小

各位大师，请教如果将单元格信息，排列组合。如图，根据左面信息自动完善生成右面信息。求赐教

cqlpjxx

Sub 排列组合()
Dim ss, xb, cc, ar(), s, x, c, m
ss = [b9:b12]: xb = [c9:c10]: cc = [d9:d11]
For s = 1 To 4
For x = 1 To 2
For c = 1 To 3
m = m + 1
ReDim Preserve ar(1 To 4, 1 To m)
ar(1, m) = "中国": ar(2, m) = ss(s, 1): ar(3, m) = xb(x, 1): ar(4, m) = cc(c, 1)
Next
Next
Next
Range("f9").Resize(m, 4) = Application.Transpose(ar)
End Sub

cqlpjxx

......................................

早安-小小

cqlpjxx 发表于 2015-11-24 15:18
Sub 排列组合()
Dim ss, xb, cc, ar(), s, x, c, m
ss = : xb = [c9:c10]: cc = [d9:d11]

谢谢大师~想请教举一反三的方法。

1、ss = [b9:b12]: xb = [c9:c10]: cc = [d9:d11] 用的是什么方法，是什么意思
2、如果每列条件数是动态的要怎么处理？即：第一列可能有5个国家也可能3个。要怎么改写这个程序
3、如果连列数都是动态的，能用什么方法处理呢？

非常感谢

cqlpjxx

早安-小小 发表于 2015-11-24 15:46
谢谢大师~想请教举一反三的方法。

1、ss = : xb = [c9:c10]: cc = [d9:d11] 用的是什么方法，是什么意 ...

1.ss = [b9:b12] 是把将b9:b12的值写入数组ss
2.如果行是动态的，可以这样写：ss=range("B9:B" & range("b65536").end(3).row)
3. 如果列是动态的，就要多套一层 for...........next

早安-小小

cqlpjxx 发表于 2015-11-24 16:29
1.ss =  是把将b9:b12的值写入数组ss
2.如果行是动态的，可以这样写：ss=range("B9:B" & range("b65536" ...

第1、2点完全理解
第3点懂，但对书写还是有困惑，可以把代码写给我学习吗？谢谢！

早安-小小

cqlpjxx 发表于 2015-11-24 16:29
1.ss =  是把将b9:b12的值写入数组ss
2.如果行是动态的，可以这样写：ss=range("B9:B" & range("b65536" ...

我思考了很久，觉得套for。。。next没有办法解决列数也是动态的问题，因为你没有办法判断要写多少个for next.
似乎只能用数组+递归来实现。但不知道递归这段代码要怎么写，正在努力尝试中