使用InputBox在循环中input值

我有一个macros，问有多less新的“板”（部分）我想补充。 那么它会根据该值插入新的列。 我想添加的是第二个InputBox问什么部分＃我想为每个。 （我们多次使用相同的＃）

所以，如果它问多less，我说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") 

我想你从这里得到的主意