如何按某种规律排列数据1 一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,A1……A700要按原有顺序排列2 另一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,每组A1……
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/14 06:35:17
![如何按某种规律排列数据1 一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,A1……A700要按原有顺序排列2 另一种情况:已有A列数据A1……A700,如何在B列产生700遍A1……A700,每组A1……](/uploads/image/z/7027799-23-9.jpg?t=%E5%A6%82%E4%BD%95%E6%8C%89%E6%9F%90%E7%A7%8D%E8%A7%84%E5%BE%8B%E6%8E%92%E5%88%97%E6%95%B0%E6%8D%AE1+%E4%B8%80%E7%A7%8D%E6%83%85%E5%86%B5%3A%E5%B7%B2%E6%9C%89A%E5%88%97%E6%95%B0%E6%8D%AEA1%E2%80%A6%E2%80%A6A700%2C%E5%A6%82%E4%BD%95%E5%9C%A8B%E5%88%97%E4%BA%A7%E7%94%9F700%E9%81%8DA1%E2%80%A6%E2%80%A6A700%2CA1%E2%80%A6%E2%80%A6A700%E8%A6%81%E6%8C%89%E5%8E%9F%E6%9C%89%E9%A1%BA%E5%BA%8F%E6%8E%92%E5%88%972+%E5%8F%A6%E4%B8%80%E7%A7%8D%E6%83%85%E5%86%B5%3A%E5%B7%B2%E6%9C%89A%E5%88%97%E6%95%B0%E6%8D%AEA1%E2%80%A6%E2%80%A6A700%2C%E5%A6%82%E4%BD%95%E5%9C%A8B%E5%88%97%E4%BA%A7%E7%94%9F700%E9%81%8DA1%E2%80%A6%E2%80%A6A700%2C%E6%AF%8F%E7%BB%84A1%E2%80%A6%E2%80%A6)
如何按某种规律排列数据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