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