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

Vba 查找带有字符串的行并在其上方粘贴行,vba,excel,Vba,Excel,很抱歉,我没有代码-我做了一些研究,没有找到我想要的 我有一个表,我想通过单击按钮向其中添加行 我在底部创建了一个单元格,上面写着“结束” 我希望VBA从N15:S16复制单元格(两行),并在“结束”单元格上方插入两行,以及粘贴的数据 我该如何在点击功能中实现这一点呢?只是想知道您是否意识到,您可能不需要任何代码(或公式)来实现您的目标(但希望发布一张图像,以便“作为答案”) {在我使用Excel 2007的情况下} 确保N14:S15是一个表。(选择N14:S15,插入>表格>表格,不要选中M

很抱歉,我没有代码-我做了一些研究,没有找到我想要的

我有一个表,我想通过单击按钮向其中添加行

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

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


我该如何在点击功能中实现这一点呢?

只是想知道您是否意识到,您可能不需要任何代码(或公式)来实现您的目标(但希望发布一张图像,以便“作为答案”)

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

确保
N14:S15
是一个表。(选择
N14:S15
,插入>表格>表格,不要选中
My Table has headers
{除非需要}和OK)

在之前的工作表
中,我添加了表标签和一个总计行,其中我添加了“End”{不需要“End”}并添加了公式来求和数量和值

之前的
作为起点:


After
是选择
N14:S15
并将其粘贴到
N16

的结果,John Bustos帮助我解决了这个问题。我录制了一些宏,这是我现在的代码:

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

祝大家今天愉快

真的,只要试着录制一个宏就可以了。。。这真的很容易。我推荐的两件事是查看
相对引用(这样无论它在工作表中的什么位置,你都可以在“End”单元格上方)和命名你的单元格
End
,这样你就可以通过
范围(“End”)
之类的结构在代码中使用它。。。尝试一下,然后发回一些代码。。。我们是来帮忙的!谢谢你,约翰!我会在早上的第一件事上试试:)谢谢pnuts,但这仍然需要我手动插入行,我希望它是自动的。。。因为我有一些复选框等等。哇,这太旧了!我当时可能无法接受,后来就忘了。我现在就接受。