使用InputBox在循环中输入值

Question

我有一个宏，询问有多少新的＆＃34; Plates＆＃34; （部分）我想补充一下。然后它根据该值插入新列。我想要添加的是第二个InputBox，询问我想要的每个部分。 （我们使用相同的＃多次）

所以，如果它问了多少，我说10 然后它询问＃和我说＃1234

的部分

然后我希望它粘贴10个新的列，每个列都带有＃1234部分。

这就是我所拥有的。

Dim Answer As String
Dim i As Integer
Dim Number As Integer
Dim Plate As String

On Error GoTo whoa
Answer = InputBox("How many new plates would you like add?")
Number = CInt(Answer)
For i = 1 To Number

Plate = InputBox("Enter a Plate number or Press OK")

With sht3
Columns("F:F").EntireColumn.Insert
Columns("F").ColumnWidth = 10
sht8.Range("F4:F100").Copy Range("F4:F100")
End With
Range("F8").Value = Plate
Next i

由于

Answer 1

 Dim Answer2 as string

 Answer2 = InputBox("FEED ME INPUT")

我认为你从这里得到了要点