复制公式至其他工作表时如何保留对Opgørsel表数据库的引用？

嘿，这个问题我碰到过好多次了！核心原因很简单：你复制的公式里对Opgørsel工作表数据库的引用是相对引用，复制到新位置后引用会自动偏移，自然找不到目标数据源。咱们只需要调整公式的引用方式，或者修改代码里复制公式的逻辑，就能搞定。

要修改的核心点：给数据库引用加上「工作表名+绝对引用」 #

不管你用哪种复制方式，关键是要让公式里的数据库地址固定指向Opgørsel工作表的指定区域，不能随复制位置变动。具体分两种情况改：

情况1：你用Copy/Paste方式复制公式

如果代码里是类似sourceCell.Copy然后粘贴公式的逻辑，那要确保源单元格的公式本身就包含带工作表名的绝对引用。比如原公式如果是=VLOOKUP(A1,A1:C100,2,FALSE)，要改成：

' 先把源单元格的公式改成带绝对引用和工作表名的版本
sourceCell.Formula = "=VLOOKUP(A1,Opgørsel!$A$1:$C$100,2,FALSE)"
' 再复制粘贴
sourceCell.Copy targetSheet.Range("B2")
targetSheet.Range("B2").PasteSpecial xlPasteFormulas

如果不想修改源单元格的公式，也可以在粘贴后替换目标单元格的公式：

sourceCell.Copy targetSheet.Range("B2")
targetSheet.Range("B2").PasteSpecial xlPasteFormulas
' 替换公式里的相对引用为带工作表的绝对引用
targetSheet.Range("B2").Formula = Replace(targetSheet.Range("B2").Formula, "A1:C100", "Opgørsel!$A$1:$C$100")

情况2：你直接给目标单元格赋值公式

如果代码里是用targetCell.Formula = sourceCell.Formula这种直接赋值的方式，那直接在赋值的公式字符串里写死带工作表名的绝对引用就行，比如：

' 直接给目标单元格设置带固定引用的公式
targetSheet.Range("B2").Formula = "=SUMIF(Opgørsel!$A$1:$A$100,A2,Opgørsel!$C$1:$C$100)"

更省心的方案：给数据库定义名称 #

如果你的数据库区域固定，建议直接给它定义一个名称：

• 选中Opgørsel里的数据库区域，比如A1:C100
• 点击Excel顶部的「公式」→「定义名称」，命名为OpgørselDatabase，引用位置设为Opgørsel!$A$1:$C$100
• 然后公式里直接用这个名称，比如=VLOOKUP(A1,OpgørselDatabase,2,FALSE)
• 不管你用VBA怎么复制这个公式，它都会自动指向正确的数据库，根本不用改代码！

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