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

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

2024-12-29 17:43:14

推荐回答（5个）

回答1：

用下面的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

回答2：

首先，你纵向设置一个数列：如1-1000，也即先在A1单元格设置为0，A2单元格设置为1，A3单元格设置3，然后把这三个单元格全选起来，再向选中格子的右下角移动光标，看到一黑色小十字光标出现时，下拉光标到1000行，停顿下来时，数列是1-1000行的选中状态，显示的数值是0-999。然后光标移动到B1单元格，设置数值为1000，然后选中A1和B1两个单元格，同样移动光标到右下角一黑色小十字光标出现时，右拉光标到9000时停顿，横向数列是0起并隔一千为规律到9000的数列的选中状态，然后再同样右移光标到选中的这个数列单元格的最右下角，看到一黑色小十字光标出现时，下拉光标到1000行。此时松开光标，你就会看到0-9999一万个数字组合，呈现在你眼前了。不过，请别忘记及时存盘！

回答3：

A1单元格输入以下公式:
=TEXT(ROW(),"0000")
然后选择A列,按CTRL+D

回答4：

最小的四位为0001,最大的为9999.你在A1输入'0001并向下填充到9999就是了.

回答5：

l don't know.