作者：乔山办公网日期：
返回目录：excel表格制作
给个思路，要插入行，首先要选择行，再进行插入操作。假设在第二行处插入一行，则VBA代码如下：rows(2).insert shift:=xlup
加我QQ，已发私信，现场解决
详细解答
Sub 插入抄行()
Dim iR&
iR = Range("A65536").End(xlUp).Row + 1
Rows(iR).Insert
Cells(iR, 3) = "=A" & iR & "*B" & iR
End Sub
在最后一行百之下插度入一行
Sub abc()
n = Selection.Rows.Count
m = Selection.CurrentRegion.Columns.Count
t = Selection.Row
Range(Cells(t, 12), Cells(t + n-1, m)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub