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

我希望macros复制指定单元格中列出的单元格地址，并将其复制到“去”框以激活该单元格。

我试图录制这个macros，但不是复制和粘贴指定单元格中的任何内容，而是对单元格地址进行硬编码。 这个单元格地址将会周期性地改变，所以我需要它更加dynamic。

这里是代码：

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

我想要的不是硬编码参考（R3C33），而是D52中的所有参数。 此外，如果D52位于另一张目前未激活的工作表中，那么我需要让macros知道从不同的选项卡中将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)