excel数据排列有没有excel高手教我一下数据如何排列的例如：1345678要把他排成所有7位数的号码,有没有什么公式或者最快最易懂的方法的下面是我用手动制作的,要跟这个差不多1 2 3 4 5 6 72 3 4 5

excel数据排列有没有excel高手教我一下数据如何排列的例如：1345678要把他排成所有7位数的号码,有没有什么公式或者最快最易懂的方法的下面是我用手动制作的,要跟这个差不多1 2 3 4 5 6 72 3 4 5
excel数据排列
有没有excel高手教我一下数据如何排列的
例如：1345678要把他排成所有7位数的号码,有没有什么公式或者最快最易懂的方法的
下面是我用手动制作的,要跟这个差不多
1 2 3 4 5 6 7
2 3 4 5 6 7 8
3 4 5 6 7 8 2
4 5 6 7 8 3 2
5 6 7 8 4 3 2
6 7 8 5 4 3 2
7 8 6 5 4 3 2
8 7 6 5 4 3 2
.
.
.
小弟不才,望知道的能详细点说明!

excel数据排列有没有excel高手教我一下数据如何排列的例如：1345678要把他排成所有7位数的号码,有没有什么公式或者最快最易懂的方法的下面是我用手动制作的,要跟这个差不多1 2 3 4 5 6 72 3 4 5
按ALT＋F11打开VBA编辑器,插入一个模块,把如下代码放入,把光标停在代码中间,按F5运行.
Public Sub lwy()

Dim x(7) As Single
x(1) = 1: x(2) = 3: x(3) = 4
x(4) = 5: x(5) = 6: x(6) = 7: x(7) = 8

For a = 1 To 7
For b = 1 To 7
For c = 1 To 7
For d = 1 To 7
For e = 1 To 7
For f = 1 To 7
For g = 1 To 7
If x(a) x(b) And x(a) x(c) And x(a) x(d) And x(a) x(e) And x(a) x(f) And x(a) x(g) _
And x(b) x(c) And x(b) x(d) And x(b) x(e) And x(b) x(f) And x(b) x(g) _
And x(c) x(d) And x(c) x(e) And x(c) x(f) And x(c) x(g) _
And x(d) x(e) And x(d) x(f) And x(d) x(g) _
And x(e) x(f) And x(e) x(g) _
And x(f) x(g) Then
n = n + 1
Cells(n, 1) = x(a): Cells(n, 2) = x(b): Cells(n, 3) = x(c): _
Cells(n, 4) = x(d): Cells(n, 5) = x(e): Cells(n, 6) = x(f): Cells(n, 7) = x(g)
End If
Next
Next
Next
Next
Next
Next
Next

End Sub