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 对象的行号属性。