如何为所有单元格做参考？

Question

我正在尝试了解如何引用 ALL Sheet1 单元格，因此所做的更改将反映在 Sheet2 单元格上。

现在我在 Sheet1 中有大数据，我想将其复制到 Sheet2。稍后我将不得不更正 Sheet1 上的数据，因此这应该反映在 Sheet2 上。因为我还不知道我需要填充多少个单元格，所以我想全部引用它们。基本上，Sheet2 应该镜像 Sheet1，并有可能在 Sheet2 上添加更多不会反映在 Sheet1 中的数据。类似于 'one way mirror'.

我想这并不难，有人可以举个例子或解释一下。

谢谢

Answer 1

使用动态命名范围也许可以做您想做的事。基本上，这个想法是创建一个使用 OFFSET() 公式定义的命名范围。这样，每当新数据添加到范围之外时，命名范围将自动调整以包含新数据。

Here is one example of how to do this.

Answer 2

要在 Sheet2 上的 Sheet1 中设置所有已用单元格的镜像使用此:

Sub AllTheCellsLinked()
    Dim r As Range
    Set r = Sheets("Sheet1").UsedRange.Cells
    ady = r(1).Address
    Sheets("Sheet2").Select
    Range(ady).Select
    r.Copy
    ActiveSheet.Paste Link:=True
End Sub

这将建立到所有已用单元格的链接。

编辑

如果您在 Sheet1 中添加行或列，只需重新运行宏。

Answer 3

您可以使用 worksheet_Change 事件。右键单击 sheet 选项卡并 select 查看代码

复制并粘贴此代码。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim r As Integer
    Dim c As Integer

    r = Target.Row
    c = Target.Column

    Sheets("Sheet3").Cells(r, c) = Target


End Sub

现在，无论您在 Sheet1 上更改什么，都会在 sheet3 上更改，这是有原因的（复制和粘贴不适用于此）。代码进入原始 Sheet。根据需要更改 sheet 名称。

如何为所有单元格做参考？

How to make reference for ALL cells?

excel

vba

excel-formula