excel数据排列有没有excel高手教我一下数据如何排列的例如：1345678要把他排成所有7位数的号码,有没有什么公

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/07/13 16:38:37

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
.
.
.
小弟不才,望知道的能详细点说明!

按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 Su

excel数据排列有没有excel高手教我一下数据如何排列的例如：1345678要把他排成所有7位数的号码,有没有什么公 excel如何排列括号内的数据 excel 有没有办法让每一行的数据从大到小或从小到大排列是每一行排列一次不是所有数据跟着其中一行的 Excel中如何将两列有相同内容的数据排列 Excel表,两列数据.同一列数据中有相同的数据,在另一列数据中重新排列名次. 如何在EXCEL中排列数字例如我的A列数据是1到9,B列数据是10-18,以列数据是19-27,怎么做求达人：Excel里怎么按位数多少来排列数据 excel中如何把一列有不同小数点位数的数据改成保留两位小数的请教一下,怎样在EXCEL表格两列中,从一列中找出另一列数中没有的数据,有就是T, 没有就是T, 如何操作,非常感谢. EXCEL如何操作按照数据的首位数字大小顺序来排列? 如何让excel表格中的两列数据相同的排列在一行如何让excel里面的一组数据从小到大或是从大到小排列