在工作表的最后一行之后插入新行并从上面的单元格复制格式和公式答案

【问题标题】：Insert New Row After Last Row in Worksheet and Copy Format and Formula from Cell Above在工作表的最后一行之后插入新行并从上面的单元格复制格式和公式
【发布时间】：2016-09-18 11:35:21
【问题描述】：

我正在寻找一个 VBA 宏脚本，该脚本将定位工作表中的最后一行，然后在其下方插入一个新行，仅从上面的行中复制格式和公式，而不复制文本。到目前为止，我已经能够找到最后一行并复制上面的整个单元格，包括文本，但无法弄清楚最后不保留文本的部分。

我想知道是否没有某种方法可以宏化在工作表末尾创建新行然后在该行中重新创建公式的过程？

非常感谢任何帮助！

这是我目前所拥有的：

Sub New_Formatted_Row_With_Formula

 'Locates Last Cell
  Cells(Rows.Count, 1).End(xlUp).Offset(1,0).Select
 'Inserts Row Below
  Rows(Selection.Row).Insert shift:=xlDown

End Sub

【问题讨论】：

发布您的代码到目前为止您已经到达...

标签： excel vba

【解决方案1】：

Sub New_Formatted_Row_With_Formula()
Dim rActive As Range

Set rActive = ActiveCell

Application.ScreenUpdating = False

With Cells(Rows.Count, "A").End(xlUp)
    .EntireRow.Copy
    With .Offset(1, 0).EntireRow
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteFormulas
        On Error Resume Next
            .SpecialCells(xlCellTypeConstants).ClearContents
        On Error GoTo 0
    End With
End With

rActive.Select

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

【讨论】：

谢谢@Sixthsense！这段代码很好用！它唯一不做的是将公式从上面的单元格带到下面的单元格。这个可以吗？
也许我对此也不够具体......我想做的是复制上面单元格 Range("E2:G2") 中使用的公式并执行单元格 Range("E3:G3")... 上的相同操作
我已经在原帖中贴出了修改后的代码。请检查确认。