在执行命令按钮代码之前添加行

Question

美好的一天，

我有这个生成唯一ID的按钮，但在执行之前，我想要一个新窗口，询问用户将在＆＃34; A20＆＃34;中添加多少行，然后生成ID的代码将执行添加特定行后。

以下是生成ID的代码：

Private Sub CommandButton1_Click()
Dim x As String, rcell As Range, y As String, z As Long


x = "RFP" & Format(Now, "mmddyyhhmmss")
y = Left(x, 10)
z = Right(x, 2)

For Each rcell In Range("D20:D" & Range("D" & Rows.Count).End(3).Row)
If Cells(rcell.Row, 4) = "" Then Cells(rcell.Row, 4) = y & z
z = z + 1
Next rcell


End Sub

提前感谢您对任何输入表示高度赞赏

Answer 1

这样的东西？通过添加“A20”不确定你的意思，我认为你的意思是你要在第20行添加行？

myvalue = Inputbox("How many rows should be added?")

For i = 1 to myvalue
    Range("A20").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i