作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/31 18:32:47
请问怎么请EXCEL 0 1 2 3 4 5 6 7 8 9 四位数全部排列组合啊?
比如!0001 3245 6121 5612 …… 共有一万种,怎么排出来呢?且一个数一个单元格!
请问怎么请EXCEL 0 1 2 3 4 5 6 7 8 9 四位数全部排列组合啊?
用下面的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 Su