粘贴另一工作表中单元格的位置-Excel VBA

以下是我的代码当前的工作方式：

在位置B5的活页1上，单元格的值为Dog。在第2页C15粘贴位置上，该值也为Dog

我想要的是C15=B$5。这样，我就可以在第1页上修改B5，在第2页上修改C15

我想我可以使用一个粘贴特殊功能，但找不到任何可以工作的，因为它不是真正的粘贴功能

我想我可以用这个：

Sheets("Projects").Range(LastRow, "B").Value =_ 
Sheets("Database").Range(Newproject - Masterrow + 1, "C").Value

但它不起作用，所以我在这里

当前代码： 代码：

---

我不能只使用=SheetName！例如，B5，因为每次代码运行时都会将模板复制到新位置。我试过了。

下面的代码将完成您在问题第一部分中描述的内容。一旦你了解了它是如何工作的，我想你就可以把它应用到你的情况中去了。如果没有，请随时提问

Sub formulaTest()
Dim sh1 As Worksheet, r1 As Range, r2 As Range
Set sh1 = Worksheets("Sheet1")
Set r1 = sh1.Range("B5")
r1 = "Dog"
Set r2 = Worksheets("Sheet2").Range("C15")
r2.formula = "=" & sh1.Name & "!" & r1.Address
End Sub

下面是您在后续注释中提供的代码，以及显示其工作的动画gif（除了覆盖最后一项“6”）

---

我试过你的版本，但它运行得非常完美，然后我试过我的版本，但它不起作用：

Sub-formulaTester（）
将进纸器作为工作表将进纸器设置为Dim-OneCell作为范围将进纸器设置为Dim-TwoCell=Sheets（“项目”）将进纸器设置为OneCell=Feeder.Range（“B”和Rows.Count）。End（xlUp）OneCell=“Cow”设置为TwoCell=Sheets（“Tester2”）.Range（“C17”）TwoCell.Formula=“=”&Feeder.Name&“！”&OneCell.Address End Sub

另外，请注意，我如何添加换行符以使我的回答更易于阅读？本论坛保留了高级编辑功能，用于明确问题和答案。这些评论既不用于详细讨论，也不用于格式化文本。这样做的目的是，将来人们可以为自己的问题寻找具体的答案，而不会因为讨论太多而感到困惑。我建议你问几个具体的问题，在奖励每次回答的人之后继续。这样对所有人都有好处。如果您需要澄清后续问题，只需使用注释即可。顺便说一句，我试过你的代码，它成功了，除了一个单元格重写了一个项目。我在我的原始帖子底部添加了一个你的工作代码的演示。@Tony_M，谢谢你的帮助。最后一个问题。我可以用手机地址代替“Cow”吗？我的目标细胞一直在移动，我瞄准的目标也一直在移动。我还不能测试它们，因为我的代码中还有其他东西被破坏了。。。

Sub formulaTest()
Dim sh1 As Worksheet, r1 As Range, r2 As Range
Set sh1 = Worksheets("Sheet1")
Set r1 = sh1.Range("B5")
r1 = "Dog"
Set r2 = Worksheets("Sheet2").Range("C15")
r2.formula = "=" & sh1.Name & "!" & r1.Address
End Sub

Sub formulaTester()
Dim Feeder As Worksheet
Dim OneCell As Range
Dim TwoCell As Range
Set Feeder = Sheets("Projects")
Set OneCell = Feeder.Range("B" & Rows.Count).End(xlUp)
OneCell = "Cow"
Set TwoCell = Sheets("Tester2").Range("C17")
TwoCell.formula = "=" & Feeder.Name & "!" & OneCell.Address
End Sub