嗨,我试图制作一个可以插入 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