Loops EXCEL 2007宏插入行的x值

嗨，我试着做一个宏，可以插入x行数，但它不会工作。 我将非常感谢您的帮助！：）

您的for循环没有意义，您退出了它，因此它将始终只插入一行。我修复了它并演示了如何插入行

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 

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