注：文章内容来源于网络，真实性有待确认，请自行甄别。

请EXCEL高手帮我手上有一个表格，我希望可以自动生成图中所示的

发表于：2024-10-24 00:00:00浏览：6次分类：电脑/网络-软件

问题描述：我手上有一个表格，我希望可以自动生成图中所示的有黄色的表格，如何才可以做到？数据透视表可以吗？我现在的处理方法是在图中无黄色标识的表格中，每一格再增加五行，并加上计算公式，然后，在后面的每一格上进得复制得来这样太慢，可否自动生成？

既然不能上传表格，只能按设想来写代码了，如果你的数据是从A1单元格开始，那么可以使用下面的A代码来完成你的工作。具体的做法是：在这些数据所有的工作表Sheet标签上点击鼠标右键，在弹出的菜单上选择“查看代码”，再在弹出的窗口里把下面的代码粘贴进去，最后点击VBE编辑窗体工具上的“三角形”按键（即运行键），就可以得到你想要的那样的表。一定要记住，下面的代码只能运行一次哦，否则数据搞乱了我可不负责。 Sub crtc() Dim i%, ii%, en%, rn1, rn2 en = [a65536].End(3).Row + 1 For i = en To 3 Step -1 ii = i + 4 Rows(i & ":" & ii).Insert Set rn1 = Range(Cells(i - 1, 2), Cells(i - 1, 5)) Set rn2 = Range(Cells(i - 1, 2), Cells(ii, 5)) rn1.AutoFill Destination:=rn2, Type:=xlFillDefault Range(Cells(i - 1, 4), Cells(ii, 4)).Select Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=40 Next Columns("B:B").Insert Shift:=xlToRight Range("b2") = 1 Range("b2", "b" & [c65536].End(3).Row).Select Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1 End Sub