excel数据排列有没有excel高手教我一下数据如何排列的例如:1345678要把他排成所有7位数的号码,有没有什么公式或者最快最易懂的方法的下面是我用手动制作的,要跟这个差不多1 2 3 4 5 6 72 3 4 5
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 12:21:23
![excel数据排列有没有excel高手教我一下数据如何排列的例如:1345678要把他排成所有7位数的号码,有没有什么公式或者最快最易懂的方法的下面是我用手动制作的,要跟这个差不多1 2 3 4 5 6 72 3 4 5](/uploads/image/z/9872037-45-7.jpg?t=excel%E6%95%B0%E6%8D%AE%E6%8E%92%E5%88%97%E6%9C%89%E6%B2%A1%E6%9C%89excel%E9%AB%98%E6%89%8B%E6%95%99%E6%88%91%E4%B8%80%E4%B8%8B%E6%95%B0%E6%8D%AE%E5%A6%82%E4%BD%95%E6%8E%92%E5%88%97%E7%9A%84%E4%BE%8B%E5%A6%82%EF%BC%9A1345678%E8%A6%81%E6%8A%8A%E4%BB%96%E6%8E%92%E6%88%90%E6%89%80%E6%9C%897%E4%BD%8D%E6%95%B0%E7%9A%84%E5%8F%B7%E7%A0%81%2C%E6%9C%89%E6%B2%A1%E6%9C%89%E4%BB%80%E4%B9%88%E5%85%AC%E5%BC%8F%E6%88%96%E8%80%85%E6%9C%80%E5%BF%AB%E6%9C%80%E6%98%93%E6%87%82%E7%9A%84%E6%96%B9%E6%B3%95%E7%9A%84%E4%B8%8B%E9%9D%A2%E6%98%AF%E6%88%91%E7%94%A8%E6%89%8B%E5%8A%A8%E5%88%B6%E4%BD%9C%E7%9A%84%2C%E8%A6%81%E8%B7%9F%E8%BF%99%E4%B8%AA%E5%B7%AE%E4%B8%8D%E5%A4%9A1+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