移动源数据时excel更改公式-锁定和保护工作表不起作用

Question

我有一个包含母版页和每周报告页面的电子表格。每周页面应该从主表中提取前 5 列数据的范围。

问题是当我运行宏以添加新列（将数据向右移动并在左侧创建新列）时，我的所有公式都会更改以跟随刚刚向右移动的数据。

例如：每周工作表上的数据是使用从主工作表上的 D2 读取值的公式设置的。当我在主表中添加新列时，即使我使用 $E$2，它也会更改为 E2。

我能做些什么来防止这种情况发生？

这是使用安装了 Service Pack 1 的 Office 2013。

这是用于移动数据的代码：

ActiveWindow.SmallScroll Down:=30
Range("A43:A62").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-66
Range("D2").Select
Selection.Insert Shift:=xlToRight
Range("D2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[1]+7"
Range("D2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Answer 1

我不知道在插入这样的单元格时如何防止引用移动。因此，我知道让您的主工作表引用单元格 D2 的唯一方法是在将单元格添加到周报告后，使用宏在主工作表上重新输入公式。

试试这样的：

Dim ws As Worksheet
Dim ms As Worksheet

Set ws = Worksheets("Weekly Report")
Set ms = Worksheets("Master Report")

'Your other code goes here

ms.Range("A1") = "=" & ws.Name & "$D$2"

这假定 A1 是主工作表上引用 D2 的单元格。