作业帮 > 数学 > 作业

如何按某种规律排列数据

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/04/27 16:46:41
如何按某种规律排列数据
1 一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,A1……A700要按原有顺序排列
2 另一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,每组A1……A700到要按新顺序排列,新顺序为:A2……A700、A1;A3……A700、A1、A2;A4……A700、A1、A2、A3;…………
如何按某种规律排列数据
两段代码分别对应你的两情况.
Sub order1()
Cells(1, 2).Select
For x = 1 To 200
For y = 1 To 200
ActiveCell.Value = Cells(y, 1)
ActiveCell.Offset(1, 0).Select
Next
Next
End Sub

Sub order2()
Cells(1, 2).Select
For x = 1 To 200
For y = x + 1 To 200
ActiveCell.Value = Cells(y, 1)
ActiveCell.Offset(1, 0).Select
Next
For z = 1 To x
ActiveCell.Value = Cells(z, 1)
ActiveCell.Offset(1, 0).Select
Next
Next
End Su