宏来复制当前在单元格中的任何内容，而不是硬编码的引用

Question

我希望宏能够复制指定单元格中列出的单元格地址并将其复制到＆＃34;转到＆＃34;用于激活该单元格的框。

我尝试录制这个宏，但不是复制和粘贴指定单元格中的任何内容，而是硬编码单元格地址。这个单元格地址会定期更改，因此我需要它更具动态性。

以下是代码：

Range("D52").Select
Selection.Copy
Application.Goto Reference:="R3C33"

而不是硬编码参考（R3C33），我想要D52中目前的任何内容。此外，如果D52位于当前未激活的单独工作表中，我是否需要让宏知道从D52从其他选项卡中提取它？

Answer 1

如果 D52 包含单元格地址，则：

Sub ytrewq()
    Range(Range("D52").Text).Select
End Sub

会去那里。

例如：

修改＃1：

如果 D52 包含以下内容：

这将首先到达正确的工作表，然后到正确的单元格：

Sub ytrewq()
    Dim s As String

    s = Range("D52").Text
    Range(s).Parent.Activate
    Range(s).Select
End Sub

Answer 2

请尝试以下

Application.Goto Reference:=Range(Range("D52").Value)