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

在Excel中，大量原始数据以每行7列的结构组织。若需调整为8行或别样布局，可通过应用以下VBA技巧实现。相关公式步骤参阅：http://jingyan.baidu.com/article/4d58d541d2f1829dd4e9c08e.html

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

2、 对于第一步，我们也可以使用VBA的方式来实现。打开Excel后，右击标签选择查看代码（或者按alt+F11)，按照下图，在空白处右击选择插入模块，将如下代码复制到模块中，按F5执行，得到如上图结果：Sub gr()Dim a, bFor a = 1 To 73? ? For b = 1 To 7? ? ? ? Sheet1.Cells(a, b) = (a - 1) * 7 + b? ? NextNextEnd Sub

3、 按照上一步的做法，再新建一个模块，将如下代码复制到模块2中，按F5执行，则得到下图结果：Sub change()Dim a, b, c, d, eFor 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)? ? NextNextEnd Sub