excel数据排列有没有excel高手教我一下数据如何排列的例如:1345678要把他排成所有7位数的号码,有没有什么公
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 06:57:12
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高手教我一下数据如何排列的
例如: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
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里面的一组数据从小到大或是从大到小排列