Question

我有一张有两张纸的工作簿。在工作表A中，如果工作表B的少数单元格中的数据发生更改，则必须更改一些单元格。

例如，更改了工作表B单元格A1，然后必须反映工作表A单元格A1。

我在考虑在工作表A的A1中插入像=Sheet B!A1这样的公式。你能帮助我解决这个问题吗？任何其他方法都非常受欢迎。

提前致谢。

Answer 1

下面的内容应该有帮助

Sub Demo()
    Dim srcSht As Worksheet, destSht As Worksheet
    Set srcSht = ThisWorkbook.Sheets("Sheet B")
    Set destSht = ThisWorkbook.Sheets("Sheet A")
    destSht.Range("A1") = srcSht.Range("A1")
End Sub

这将复制Sheet B!A1中Sheet A!A1的值。如果你想要公式，那么改变

destSht.Range("A1") = srcSht.Range("A1")

到

destSht.Range("A1").Formula = "=Sheet B!A1"

编辑：

使用

destSht.Range("A1").Formula = "=" & srcSht.Name & "!A1"  'if you are using Worksheet variable

或

destSht.Range("A1").Formula = "=" & str & "!A1" 'if you are using String variable

VBA - 插入引用其他工作表的公式

1 个答案: