EXCEL数据由7列变为8列（VBA方法）-Excel教程

一大堆原始数据在Excel中按照每行7行的格式排列，也许你想将数据变为8行的排列格式或者其他的格式，可以参照此VBA的方法搞定。公式方法见：http://jingyan.baidu.com/article/4d58d541d2f1829dd4e9c08e.html

前期准备工作（包括相关工具或所使用的原料等）

Excel

详细的操作方法或具体步骤

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

对于第一步，我们也可以使用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

按照上一步的做法，再新建一个模块，将如下代码复制到模块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

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

注意事项

Excel2007及以上的版本，保存的时候注意提示，需要保存成能够运行宏的xlsm格式呦。经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。