分类：电脑/网络-软件
问题：请EXCEL高手帮我手上有一个表格，我希望可以自动生成图中所示的 
我手上有一个表格，我希望可以自动生成图中所示的有黄色的表格，如何才可以做到？数据透视表可以吗？我现在的处理方法是在图中无黄色标识的表格中，每一格再增加五行，并加上计算公式，然后，在后面的每一格上进得复制得来这样太慢，可否自动生成？
回答：既然不能上传表格，只能按设想来写代码了，如果你的数据是从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