请EXCEL高手帮我手上有一个表
既然不能上传表格,只能按设想来写代码了,如果你的数据是从A1单元格开始,那么可以使用下面的VBA代码来完成你的工作。具体的做法是:在这些数据所有的工作表Sheet标签上点击鼠标右键,在弹出的菜单上选择“查看代码”,再在弹出的窗口里把下面的代码粘贴进去,最后点击VBE编辑窗体工具上的“三角形”按键(即运行键),就可以得到你想要的那样的表。
一定要记住,下面的代码只能运行一次哦,否则数据搞乱了我可不负责。
Sub crtc()
Dim i%, ii%, en%, rn1, rn2
en = [a65536]。End(3)。 Row + 1
For i = en To 3 Step -1
...全部
既然不能上传表格,只能按设想来写代码了,如果你的数据是从A1单元格开始,那么可以使用下面的VBA代码来完成你的工作。具体的做法是:在这些数据所有的工作表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
。
收起