我有以下代碼效果很好，但它只會添加一個新行！有誰知道我如何向現有代碼添加一些代碼，以便在運行該函式時要求用戶輸入他們希望創建的行數。
感謝您花時間看這個。
With ActiveCell.EntireRow
.Copy
.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
On Error Resume Next
.Offset(1).SpecialCells(xlCellTypeConstants).Value = ""
Application.CutCopyMode = False
On Error GoTo 0
End With
uj5u.com熱心網友回復：
試試這個：
Sub AddRows()
Dim howMany As Long
howMany = InputBox("How many rows?")
Dim i As Long
For i = 1 To howMany
ActiveCell.EntireRow.Insert
Next
End Sub
編輯：
要保留公式，只需將原始代碼放入 for 回圈中。
Sub AddRows()
Dim howMany As Long
howMany = InputBox("How many rows?")
Dim i As Long
For i = 1 To howMany
With ActiveCell.EntireRow
.Copy
.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
On Error Resume Next
.Offset(1).SpecialCells(xlCellTypeConstants).Value = ""
Application.CutCopyMode = False
On Error GoTo 0
End With
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/377339.html