嘿，我来帮你搞定这个重复复制表格的问题！你已经摸到了关键——用动态计算的最后一行来定位粘贴位置，而不是录制宏时的固定行号，这正是实现重复执行的核心。

把你现有的代码片段扩展成完整的宏，每次执行都会自动找到最新的最后一行，然后把A6:QD16的表格复制到它下方2行的位置：

Sub DuplicateTable()
    Dim LR As Long ' 存储K列最后一行的行号
    Dim sourceTable As Range
    Dim targetStartRow As Long
    
    ' 定义要复制的源表格区域
    Set sourceTable = ThisWorkbook.ActiveSheet.Range("A6:QD16")
    
    With ThisWorkbook.ActiveSheet
        ' 动态获取K列的最后一行（避免录制宏的固定行号问题）
        LR = .Cells(.Rows.Count, "K").End(xlUp).Row
        ' 计算目标起始行：最后一行 + 2
        targetStartRow = LR + 2
        
        ' 弹出提示告知用户新表格位置
        MsgBox "新表格将创建在第 " & targetStartRow & " 行" & vbNewLine & "请稍候...", vbInformation, "复制提示"
        
        ' 复制源表格并粘贴到目标位置（保留格式、公式等所有内容）
        sourceTable.Copy Destination:=.Range("A" & targetStartRow)
        
        ' 如果你只需要复制单元格值（不带格式/公式），替换上面的Copy行：
        ' .Range("A" & targetStartRow).Resize(sourceTable.Rows.Count, sourceTable.Columns.Count).Value = sourceTable.Value
    End With
    
    ' 清除剪贴板（可选，避免保留复制内容占用内存）
    Application.CutCopyMode = False
End Sub

为什么这个宏能重复执行？ #

录制宏会把第一次执行的固定行号写死（比如第一次粘贴到行19，下次还是硬编码成19），而我们用LR = .Cells(.Rows.Count, "K").End(xlUp).Row动态获取K列最新的最后一行，每次执行都会重新计算目标位置，所以无论你执行多少次，都会粘贴到当前表格的最下方2行。

现在把这个宏绑定到一个窗体按钮上，不用每次去开发工具里找宏：

• 首先确保你的Excel显示了「开发工具」选项卡：如果没显示，右键顶部功能区空白处 → 「自定义功能区」→ 勾选左侧的「开发工具」→ 确定。
• 点击「开发工具」→ 「插入」→ 选择「表单控件」里的按钮（窗体控件）。
• 在工作表上拖动鼠标画出一个按钮，松开后会弹出「指定宏」窗口，选择我们刚写的DuplicateTable宏 → 确定。
• 右键按钮 → 「编辑文字」，改成你想要的名称（比如「复制表格」），调整按钮的大小和位置到方便点击的地方。

1. 指定具体工作表：把代码里的ThisWorkbook.ActiveSheet改成具体的工作表名称（比如ThisWorkbook.Sheets("Sheet1")），这样即使切换到其他工作表，点击按钮也不会出错。
2. 错误处理：如果你的表格行数很多，担心超出Excel的行限制（最多1048576行），可以加个判断：

   If targetStartRow + sourceTable.Rows.Count > .Rows.Count Then
       MsgBox "剩余行不足，无法复制表格！", vbCritical, "错误提示"
       Exit Sub
   End If
   

3. 避免覆盖内容：如果K列最后一行下方2行已经有内容，宏会直接覆盖，你可以加个判断提示用户：

   If Not .Range("A" & targetStartRow).Value = "" Then
       If MsgBox("目标位置已有内容，是否覆盖？", vbYesNo, "确认提示") = vbNo Then
           Exit Sub
       End If
   End If
   

内容的提问来源于stack exchange，提问作者LLAO