寫一個宏，將一個特定的行復制到插入的行數中

Question

我想寫一個宏，它插入我選定的行下面指定的行數。每個新插入的行都需要複製已在工作簿中創建的一行公式（第2行）。我似乎無法弄清楚如何讓宏將該行公式粘貼到每個新創建的行中。我對宏非常新，並會感謝任何幫助！這裏是我（和它的作品用於創建行＃，但只有粘貼行2到所創建的最後一行）：

Sub InsertSessions 
Dim Rng as long 
Dim k as long 
Dim rRange as Range 

Set rRange = Selection 

ActiveCell.EntireRow.Select 

Rng = InputBox("Enter number of sessions:.") 
For k = 1 To Rng 
Rows(rRange.Row).Insert Shift:=xlDown, _ 
      CopyOrigin:=xlFormatFromLeftOrAbove 
Rows(2).Copy Destination:= Rows(rRange.Row) 
End Sub 

如果可能的話，我也想知道如何進行宏觀DO以下兩兩件事：

1. 創造一個少排，然後在選擇的（如：如果我進入4節，我想只有3個要創建

2. 行是否有第一種方式創建的行包含公式集（從「行2」中複製）和所有後續從行「3行」複製nt行（即如果我輸入4個會話，第一行將複製第2行，接下來的2個插入行將複製第3行）

謝謝！

Answer 1

試試這個

Sub InsertSessions() 
Dim Rng As Long 
Dim k As Long 
Dim rRange As Range 

Set rRange = Selection 

ActiveCell.EntireRow.Select 

Rng = InputBox("Enter number of sessions:.") 
For k = 1 To Rng 
Rows(rRange.Row).Insert Shift:=xlDown, _ 
      CopyOrigin:=xlFormatFromLeftOrAbove 
Call rRange.Copy(Range(Cells(rRange.Row - 1, rRange.Column), Cells(rRange.Row - 1, rRange.Column))) 


Next k 
End Sub