- 请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