Vba 在两张图纸的同一位置插入新行>；从上面复制公式

我已经为我的工作场所创建了一个跟踪文档，但我对Excel的有限知识只让我走了这么远。希望有人喜欢清理凌乱的工作簿

我有一份包含两张相关工作表的文档：“年度”，涵盖了我正在设计的表单的很多细节；和“摘要”，这是真正的管理用途。“摘要”页面中的所有信息都是对“年度”的单元格引用，“摘要”页面通常受密码保护，因此公式不会被覆盖。您可以下载我希望实现的更大文档的一个虚拟副本：我们在工作中使用Excel 2010，尽管所附文档上次是在OpenOffice Calc中编辑的

本文档的基本功能是为每个工作表提供不同程度的信息，大多数原始信息都是手动提供的。我希望它足够动态，用户不需要了解保留单元格引用的重要性-他们只需按一个按钮将任务添加到列表中，程序就会在幕后填充其余的任务

除了在C列中直观地指出行标签“层次结构”的糟糕方式外，当有人希望在“年度”页面中插入新行时，我也遇到了问题；在维护动态公式和格式的同时，我还没有找到在“摘要”页面上同时插入行的有效方法。编写宏来实现这一点很困难，因为我只希望在“摘要”页面上引用某些单元格（尽管我100%确定有办法做到这一点）

这是我的尝试：

Public sAddress As String

Sub AddRow()
R = ActiveCell.Row
ActiveCell.Offset(-1).EntireRow.Insert Shift:=xlDown
Range("E" & R & ":G" & R).Copy Destination:=Range("E" & R + 1 & ":G" & R + 1)
Range("T" & R).Copy Destination:=Range("T" & R + 1)
End Sub

Sub DeleteRow()
ActiveCell.EntireRow.Delete
End Sub

Sub AddSummary()
On Error Resume Next
Worksheets("Summary").Activate
If sAddress > "" Then Sh.Range(sAddress).Select
R = ActiveCell.Row
ActiveCell.Offset(-1).EntireRow.Insert Shift:=xlDown
Range("E" & R & ":G" & R).Copy Destination:=Range("E" & R + 1 & ":G" & R + 1)
Range("T" & R).Copy Destination:=Range("T" & R + 1)
End Sub

Sub Variab()
sAddress = ActiveCell.Address
End Sub

Sub Everything()
Call AddRow
Call Variab
Call AddSummary
End Sub

也许可以实现一个透视表？然而，我不知道如何使数据透视表真正工作，更不用说使它变得友好或漂亮了。我试图制作一个数据透视表，可以在摘要页面中引用，并对其他用户隐藏，但没有成功

我知道你可能会对我的工作簿感到不寒而栗，但如果你能想出更好的方法来跟踪我试图跟踪的信息（在许多用户中，具有不同程度的计算机素养），那么请让我知道

单击摘要选项卡 按住Shift键并单击“年度”选项卡 插入行

就这样！它将在两张图纸上插入一个空行

如果要将现有行中的数据复制到新创建的行中（如在宏中），请如上所述选择两个选项卡，高亮显示一行，复制该行，然后将其粘贴到新行中。您将看到，“复制”命令应用于两张图纸，就像您在每张图纸上执行了“复制”命令一样