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 循环没有意义，你退出了它，所以它总是只插入一行。我修复了它并展示了如何插入行。