VBA遍历InputBox中给定的行数

Question

我想遍历在“输入”框+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)无法识别为范围。确定范围的正确方法是什么，例如，如果在InputBox中输入的数字为40，则为（A2：A41）？

Answer 1

尝试一下...

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 ... r是Range对象，r.Row是的行号属性该Range对象。