VBA循环输入框中给定的行数

我想循环查看输入框+1中输入的行数

Sub LoopEnter()
    myNum = Application.InputBox("Enter number")
    For Each r In Range ("A2":"A" & myNum +1)
        r.Offset (0.1) = "N"& r
        Next r
    End Sub

但是，

（“A2”：“A”&myNum+1）

不被识别为范围。例如，如果输入框中输入的数字是40，那么正确的范围设置方法是什么（A2:A41）？

试试这个

Sub LoopEnter()
    myNum = Application.InputBox("Enter number")
    For Each r In Range ("A2:A" & myNum +1)
        r.Offset (0,1) = "N" & r.Row
    Next r
End Sub

你把

：

放错地方了。。。它应该在字符串内部，而不是在两个字符串之间

---

---

根据@Santosh的建议进行了更新，因为您也错过了

.Row

out

r

是一个

Range

对象，

r.Row

是该

Range

对象的行号属性。

使用

“N”&r.Row

可以很好地识别行号。我更新了我的答案以反映您的见解：0）您还可以使用

范围（“A2”）。调整大小（myNum）

并避免连接。