loops - 仅从下面的单元格插入行并复制公式

Question

这应该很容易，但我很久没有这样做了，我正在为这些元素而苦苦挣扎。

我需要在 A21 中插入一个新行。我只需要将公式复制到新行中。下面也是复制值。它让我发疯。我需要它重复三遍。

Sub NewData()

' NewData Macro
' Inserts rows and copies formulas up.

' Keyboard Shortcut: Ctrl+d



Range("A21").EntireRow.Insert

Range("A22").EntireRow.Copy
Range("A21").PasteSpecial xlPasteFormulas
Application.CutCopyMode = False

End Sub

我考虑过一个循环，但这也是一场斗争。数据仅进入 T 列。

标签： loopsif-statementcopyformulapaste