vba - 查找带有字符串的行并在其上方粘贴行

Question

对不起，我没有代码 - 我做了一些研究，但找不到我想要的。

我有一个表，我想通过单击一个按钮来添加行。

我在底部创建了一个单元格，上面写着“结束”。

我希望 VBA 从 N15:S16 复制单元格（两行），并在“结束”单元格上方插入两行以及粘贴的数据。

我将如何在点击功能中解决这个问题？

Answer 1

只是好奇您是否意识到您可能不需要任何代码（或公式）来实现您的目标（但无论如何都想发布图像“作为答案”）。

{在我使用 Excel 2007 的情况下}

确保N14:S15是一个表。（选择N14:S15、插入 > 表格 > 表格，不要选中My table has headers{除非需要} 和OK）。

在工作表Before中，我添加了表格标签和总计行，我在其中添加了“结束”{不需要“结束”}，并添加了公式来汇总数量和值。

以Before：

After是选择N14:S15并粘贴到的结果N16。

Answer 2

@John Bustos 帮我解决了这个问题。我记录了一些宏，这是我现在拥有的代码：

Sub Insert_Row_Click()
    Range("T15:AK16").Select
    Selection.Copy
    Application.Goto Reference:="EndCell2"
    Selection.Insert Shift:=xlDown
End Sub

祝大家拥有美好的一天！