求高手，求大神，关于排列组合

大力火手

A列a1到a10有十个数据，比如1到10。在B12开始排列，b12是1，b13是2…b22是1,1，b23是1,2，…b31是1,10，b32是2,2…如此列下去1,1,1。1,1,2·…到10,10,10,10,10,10,10,10,10,10。就是每个数据可以重复，但是每个单元格的数字不能相同。可以（111）可以重复。不可以（121）（211）单元格数字相同。在c列列出B列数据的和。本人菜鸟，并脑细胞不多。求高手帮忙

1
2
3
4
5
6
7
8
9
10
	组数	得数
	1	1
	2	2
	3	3
	4	4
	5	5
	6	6
	7	7
	8	8
	9	9
	10	10
	1,1	2
	1,2	3
	1,3	4
	1,4	5
	1,5	6
	1,6	7
	1,7	8
	1,8	9
	1,9	10
	1,10	11
	2,2	4
	2,3	5
	2,4	6
	2,5	7
	2,6	8
	2,7	9
	2,8	10
	2,9	11
	2,10	12
	3,3	6
	3,4	7

大力火手

求高人，求大神

大力火手

不知道是排列还是组合

大力火手

不要沉下去。

大力火手

高手在哪里？

香川群子

这是典型的【香川多列】组合。

即m=10个元素，重复n=2列的组合共=m^n=10^2=100个

可以用递归或数组算法解决。

数组算法看这里：
http://club.excelhome.net/thread-1194281-1-1.html

香川群子

楼主是完完全全的VBA小白……

算了给你附件：
代码也做了详细说明。

1. Sub test() 'Multi-Column Combin by kagawa
   
2.     Dim ar, a&(), b(), c&(), i&, j&, k&, l&, m&, n&, tms#
   
3.     tms = Timer
   
4.    
   
5.     ar = [a1].CurrentRegion '取A1开始的m行数据(任意文本或数值都可以)
   
6.     m = UBound(ar) '读取行数m
   
7.     n = [c2] '读取C2单元格中需要生成的列数n
   
8.     k = m ^ n '可生成组合总数
   
9.     If k > Rows.Count Then MsgBox k & " > " & Rows.Count & " Err !": Exit Sub
   
10.     '如组合结果总数>工作表行数 则提示后退出
    
11.    
    
12.     ReDim a&(1 To n), b(1 To k, 1 To n)
    
13.     '定义数组a记录组合状态、以及存放结果的数组b
    
14.     For i = 1 To k
    
15.         For j = 1 To n
    
16.             b(i, j) = ar(a(j) + 1, 1) '记录本行组合结果
    
17.         Next
    
18.         For j = n To 1 Step -1
    
19.             '按顺序递增组合算法进行组合变化
    
20.             If a(j) = m - 1 Then a(j) = 0 Else a(j) = a(j) + 1: Exit For
    
21.             '即到达m个时作进位处理，本位归零。否则按顺序递增+1引用下一个元素
    
22.         Next
    
23.     Next
    
24.    
    
25.    '在E列输出结果
    
26.     [e1].CurrentRegion = "" '清空
    
27.     [e1].Resize(k, n) = b '输出
    
28.     MsgBox Format(Timer - tms, "0.00s ") & k
    
29. End Sub
    

复制代码

用法：
① A列中 A1开始的m行输入任意文本或数值m个，要连续不要有空行。(B列请保持留空)

② C2单元格中输入需要生成组合的列数n。

③ 组合结果总数k=m^n
    如结果总数>工作表行数则退出宏。(2003为 65536、2007以上为 1048576)

④ 按下按钮，完成组合计算 并输出结果到E1开始的k行n列区域

以上

香川群子

7楼代码是6楼链接帖子中任意组合算法代码的简化版。

大力火手

香川群子 发表于 2015-4-4 22:40
楼主是完完全全的VBA小白……

算了给你附件：

嘻嘻嘻，神人！真是小白，不，是大白，谢谢

大力火手

香川群子 发表于 2015-4-4 22:40
楼主是完完全全的VBA小白……

算了给你附件：

不止100个啊，是1到10的10次方减去单元格排列数字相同的