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

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

2、对于第一步，我们也可以使用VBA的方式来实现。打开E垓矗梅吒xcel后，右击标签选择查看代码（或者按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

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