EXCEL数据由7列变为8列（VBA方法）

1、打开Excel，将原始数据录入，为了方便能更为直观的看到数据的排列过程，我将每个数据都设置为不一样的编号。

2、对于第一步，我们也可以使用VBA的方式来实现。打开Excel后，右击标签选择查看代码（或者按alt+F11)，按照下图，在空白处右击选择插入模块，将如下代码复制到模块中，按F5执行，得到如上图结果：

Sub gr()

Dim a, b

For a = 1 To 73

    For b = 1 To 7

        Sheet1.Cells(a, b) = (a - 1) * 7 + b

    Next

Next

End Sub

3、按照上一步的做法，再新建一个模块，将如下代码复制到模块2中，按F5执行，则得到下图结果：

Sub change()

Dim a, b, c, d, e

For a = 1 To 73

    For b = 1 To 7

     c = Int(((a - 1) * 7 + b - 1) / 8) + 1

     d = (a - 1) * 7 + b - (c - 1) * 8

     Sheet2.Cells(c, d) = Sheet1.Cells(a, b)

    Next

Next

End Sub

4、当然，如果你想按照其他的格式，每行排列9个，10个，都可以，只需要将上述代码中的8修改为你想要的就OK了。