关于在excel中增加行数的问题(新手请教)

qxcathy

1.rar (12 KB, 下载次数: 4)

2017-12-2 20:00 上传

点击文件名下载附件

希望实现的功能:
1: 点击控件按钮,运行增加行数的VBA程序
2:每次增加的行数可以由用户指定
3：在点击区分1处的"增加行"按钮时，仅增加区分1处的行数，并自动复制前一行的公式。
    在点击区分2处的"增加行"按钮时，仅增加区分2处的行数，并自动复制前一行的公式。
4：新增的行数始终插入在“增加行”按钮所在行的前一行

大致感觉如附件所示。

我是一新手，前1~3都能实现，但是第4点有点困难，目前只能做到在指定行前增加。
请高手指教。

Sub test()
Dim i, j, rRow As Long
i = InputBox("请输入需要增加的行数")
Rows(4).Select
rRow = Selection.Row
For j = 1 To i
ActiveSheet.Rows(rRow).Insert
Next j
End Sub

qxcathy

没人解惑吗?