应用Excel处理一个全排列的问题！

来源：百度知道 编辑：UC知道 时间：2024/07/04 12:21:33
我想用Excel来处理一组数据：用0，1，2三个数字组成一个8位数，不能重复，一共是3*3*3*3*3*3*3*3=6561个数字组合，怎么让这些数字组合完完整整的显示出来啊？？？拜托各位啦！回答满意者，重分追赏！！！不胜感激！！！
比如说是00000000，00000001，00000002，00000010，00000011..................拜托啦！

我知道，用公式函数可以完成，等我回答啊
从第一行输入这个 ，向下拖动到6562位置即可得到全部数据
=MOD(INT((ROW()-1)/3^7),3)&MOD(INT((ROW()-1)/3^6),3)&MOD(INT((ROW()-1)/3^5),3)&MOD(INT((ROW()-1)/3^4),3)&MOD(INT((ROW()-1)/3^3),3)&MOD(INT((ROW()-1)/3^2),3)&MOD(INT((ROW()-1)/3^1),3)&MOD(INT((ROW()-1)/3^0),3)

结果如下；
00000000
00000001
00000002
00000010
00000011
00000012
00000020
00000021
00000022
00000100
........
........
22222200
22222201
22222202
22222210
22222211
22222212
22222220
22222221
22222222

用公式怎么做真要好好研究一下，但用VBA就含简单：
Sub SAN()
Dim R%
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
R = R + 1
Cells(R, 1) = "'" & a & b & c & d & e & f & g & h
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
End Sub