如何按某种规律排列数据1 一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,A1……A700要按原有顺序排列2 另一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,每组A1……

如何按某种规律排列数据1 一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,A1……A700要按原有顺序排列2 另一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,每组A1……
如何按某种规律排列数据
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；…………

如何按某种规律排列数据1 一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,A1……A700要按原有顺序排列2 另一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,每组A1……
两段代码分别对应你的两情况.
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 Sub