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 

您的循環沒有意義，你退出裏面所以它會一直插入只有一行。我修復了它並顯示瞭如何插入行。