求救!!如何在excel每?尚?
在你的工作表中插入如下宏代码:
Option Explicit
Sub 隔行插入()
Application。ScreenUpdating = False
Dim i%, j%, x%, y%
x = 2 '间隔行数
y = 3 '插入行数
With ActiveSheet
For i = 1 To y
For j = 1 To 。 [A65536]。End(xlUp)。Row + Int(。[A65536]。End(xlUp)。Row / (x + i - 1))
If j Mod (i + x) = 0 Then 。 Rows(j)。Insert
Next j
Next i
End...全部
在你的工作表中插入如下宏代码:
Option Explicit
Sub 隔行插入()
Application。ScreenUpdating = False
Dim i%, j%, x%, y%
x = 2 '间隔行数
y = 3 '插入行数
With ActiveSheet
For i = 1 To y
For j = 1 To 。
[A65536]。End(xlUp)。Row + Int(。[A65536]。End(xlUp)。Row / (x + i - 1))
If j Mod (i + x) = 0 Then 。
Rows(j)。Insert
Next j
Next i
End With
Application。ScreenUpdating = True
End Sub
在需要的地方运行“隔行插入”宏即可。
可以修改代码中注释部分前面的间隔行数和插入行数,以满足不同的需要。
效果如附件:
。收起