如何按某种规律排列数据

题目

如何按某种规律排列数据
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).SelectFor x = 1 To 200For y = 1 To 200ActiveCell.Value = Cells(y, 1)ActiveCell.Offset(1, 0).SelectNextNextEnd SubSub order2()Cells(1, 2).SelectFor x ...