请问怎么请EXCEL 0 1 2 3 4 5 6 7 8 9 四位数全部排列组合啊?

请问怎么请EXCEL 0 1 2 3 4 5 6 7 8 9 四位数全部排列组合啊?
比如!0001 3245 6121 5612 …… 共有一万种,怎么排出来呢? 且一个数一个单元格!

用下面的VBA代码运行一下就会在当前工作表的 A列填充出全部组合

VBA代码用法:
'按alt+f11进入VBE编辑窗口,然后选择插入----模块----会打开一个模
'块窗口,把下面的代码复制进去--保存,再次按alt+f11返回excel窗口
'按alt+f8打开运行宏窗口,会看到test宏,运行它就可以了

Option Explicit

Sub test()
Dim i As Integer, j As Integer, l As Integer, n As Integer, k As Long
For i = 0 To 9
For j = 0 To 9
For l = 0 To 9
For n = 0 To 9
k = k + 1
ActiveSheet.Range("a" & k) = "'" & i & j & l & n
Next
Next
Next
Next
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-10-23
首先,你纵向设置一个数列:如1-1000,也即先在A1单元格设置为0,A2单元格设置为1,A3单元格设置3,然后把这三个单元格全选起来,再向选中格子的右下角移动光标,看到一黑色小十字光标出现时,下拉光标到1000行,停顿下来时,数列是1-1000行的选中状态,显示的数值是0-999。然后光标移动到B1单元格,设置数值为1000,然后选中A1和B1两个单元格,同样移动光标到右下角一黑色小十字光标出现时,右拉光标到9000时停顿,横向数列是0起并隔一千为规律到9000的数列的选中状态,然后再同样右移光标到选中的这个数列单元格的最右下角,看到一黑色小十字光标出现时,下拉光标到1000行。此时松开光标,你就会看到0-9999一万个数字组合,呈现在你眼前了。不过,请别忘记及时存盘!
第2个回答  2010-01-25
A1单元格输入以下公式:
=TEXT(ROW(),"0000")
然后选择A列,按CTRL+D
第3个回答  2010-01-25
最小的四位为0001,最大的为9999.你在A1输入'0001并向下填充到9999就是了.
第4个回答  2010-01-25
l don't know.
相似回答