loops - EXCEL 2007マクロ挿入行のx値

Question

こんにちは、x 行を挿入できるマクロを作成しようとしましたが、うまくいきません。どんな助けにもとても感謝しています！:)

Sub Makro4()
'
' Makro4 Makro
'
' Kortkommando: Ctrl+j
'
    Dim Rng
    Dim k
    Rng = InputBox("Enter number:.")
    For Rng = k To Rng
    k = k + 1
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Exit For
    Next
End Sub 

Answer 1

Sub Makro4()
    Dim Rng As Integer
    Dim k As Integer
    Dim rRange As Range

    Set rRange = Selection

    Rng = InputBox("Enter number:.")
    For k = 1 To Rng
        Rows(rRange.Row).Insert Shift:=xlDown, _
              CopyOrigin:=xlFormatFromLeftOrAbove
    Next
End Sub

for ループは意味がなく、ループ内で終了したため、常に 1 行だけ挿入されていました。私はそれを修正し、行を挿入する方法を示しました。