VBA 宏帮助，插入行和粘贴特殊公式

Question

全部，

如果有人能帮助我处理我的 VBA 代码宏，我将不胜感激。我有 2 个不同的宏，我需要将它们组合并更改一个。

我通过 Excel 在我的“总行”上方的表格底部插入一行。效果很好！！！

Sub InsertingRow()

Range("A" & Rows.Count).End(xlUp).Select
ActiveCell.EntireRow.Insert

End Sub

然后：

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("F12:O12").Select
    Selection.Copy

    Range("F13").Select

    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Application.CutCopyMode = False

End Sub

**我需要组合这 2 个宏，但我需要 PasteSpecial 宏与插入行宏一起向下递增，并保留特定列/单元格的复制。

我有一个“总行”，所以我需要它来向下推总行并在其上方的行中插入/复制。

我相信这很容易。**

感谢所有回复。

Answer 1

这样的事情应该会让你走上正轨。我不确定你的数据需要从哪里复制，但试试这个，你会看到它是如何工作的。

Sub Test()
    Dim lastRow As Integer
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    Rows(lastRow).Insert

    Range("F" & lastRow - 1 & ":O" & lastRow - 1).Copy
    Range("F" & lastRow).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub