Question

excel如何用函数把1234的所有组合排列出来，其公式是什么?

Answer 1

把楼上的代码修改一下，可以把1234的所有不重复的记录排列出来。
注意粘贴后敲回车断行。
用VBA，右键单击工作表标签--查看代码，把下面代码粘上
按F5
Sub
test()
Dim
i,
j,
m,
n,
r
As
Integer
r
=
1
For
i
=
1
To
4
For
j
=
1
To
4
For
m
=
1
To
4
For
n
=
1
To
4
If
i
=
j
Or
i
=
m
Or
i
=
n
Or
j
=
m
Or
j
=
n
Or
m
=
n
Then
r
=
r
-
1
Else
Cells(r,
1)
=
i
&
j
&
m
&
n
End
If
r
=
r
+
1
Next
Next
Next
Next
End
Sub
运行结果如下:
1234
1243
1324
1342
1423
1432
2134
2143
2314
2341
2413
2431
3124
3142
3214
3241
3412
3421
4123
4132
4213
4231
4312
4321