查找包含字符串的行并粘贴其上方的行

Question

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

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

我在底部创建了一个单词“End”。

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

我如何在点击功能中进行此操作？

Answer 1

只是好奇你是否意识到你可能不需要任何代码（或公式）来看似你的目标（但是想要发布一个图像，所以'作为一个答案'，无论如何）。

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

确保N14:S15是一个表格。 （选择N14:S15，插入＆gt;表格＆gt;表格，不要检查My table has headers {除非必需}和确定）。

在工作表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

每个人都过得愉快！