excel 排列组合

Question

1,2,3三个数 9个位置，
例如 111111111
133333333
123212211
要求所有的组合排列，并且每位数在独自的单元格里
比如111111111的每个1在9个单元格里横向排列，133333333在第二行横向排列
也就是说一共有19683种组合，也就是19683行，9列。好烦躁啊。。。。。。。期待高手可以写个完整的宏。

Answer 1

这个有什么烦的呀,太简单了.你按以下部子做保你做成功.
有多种方法,但第一种最简单:
第一种:
1) 设计一种3进制程序,每位只有1,2,3三个数字,3+1=11(注:是3进制,首位的1表示十进制数字的3,而不是表示十进制数字10),例2333+1=3111
2) 初值各位全为1,即111111111,这样每次加1,直到每位全为3为止,即333333333
3) 每加1就记录一次数字就可以了.
注:如果没有学过大学计算机的二进制,可能不一定明白三进制如何做的,这时可以找相关的书看一下.

第二种:
1) 设定变量A[1,1]到A[9,9],初值为1,是用来记录每位数字的变化次数的.
2) 变量A[1,1]到A[1,9],用来记录第1位到第9位变化次数.
变量A[2,2]到A[2,9],用来记录第2位到第9位变化次数.
变量A[3,3]到A[3,9],用来记录第3位到第9位变化次数.

变量A[8,8]到A[8,9],用来记录第8位到第9位变化次数.
变量A[9,9]到A[9,9],用来记录第9位到第9位变化次数.(只有一位)
3) 每一位数字全从1变到3,但是是从最后一位开始变.当本位变完后,则向高一位申请变化,同时从本位开始到最后每位全要改为1例如:
111111111
111111112
111111113
111111121
4) 每次后面各位归1后,则从最后一位(第9位)重新开始循环,直到最高位(第1位)变为3且后面各位也全为3为止.
5) 每变化一次,将每一位(A[1,1],A[2,2],)A[3,3],)A[4,4],)到A[9,9],))的当前值写入变量中,每变一次生成一条记录.

Answer 2

先用宏在A1到A19683把所有组合的数字赋上，再在旁边的单元格（B1：J1）写公式逐位提取数字。

在excel按alt+F11调出visual basic编辑器，然后选菜单“插入”－》“模块”写下如下的宏：
Sub add()
Dim Val As Long
Dim Cellcount As Integer
Dim a, b, c, d, e, f, g, h, i As Integer
Cellcount = 1
Val = 111111111

For a = 0 To 2
For b = 0 To 2
For c = 0 To 2
For d = 0 To 2
For e = 0 To 2
For f = 0 To 2
For g = 0 To 2
For h = 0 To 2
For i = 0 To 2
Cells(Cellcount, 1).value = Val + i + h * 10 + g * 100 + f * 1000 + e * 10000 + d * 100000 + c * 1000000 + b * 10000000 + a * 100000000
Cellcount = Cellcount + 1
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a

End Sub

写完后回到excel，按alt+F8，运行刚才写的宏

之后：
B1至J1单元格公式如下：
B1：=LEFT($A1,1)
C1：=MID($A1,2,1)
D1：=MID($A1,3,1)
类推
J1：=MID($A1,9,1)

最后选中 范围 B1:J1， 往下填充公式至19683行即可。

Answer 3

A1为111111111，在B1输入=MID($A1*100,COLUMN(D2),1) 回车并向右拉至J1；
再刷选B1～J1向下复制B3～J3。

Answer 4

找个高手按照你的要求写一个宏吧，别的没有办法解决，找不到会写宏的，分给我吧，有点浪费

参考资料：www.51msh.com/msitemap08.html