復制單元格中當前內容的宏，而不是硬編碼的引用

Question

我希望宏復制指定單元格中列出的單元格地址，並將其復制到“轉到”框中以激活該單元格。

我嘗試記錄此宏，但沒有復制並粘貼指定單元格中的任何內容，而是對單元格地址進行了硬編碼。 該單元地址將定期更改，因此我需要使其更具動態性。

這是代碼：

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

我想要的不是D52中當前包含的內容，而是硬編碼的參考（R3C33）。 此外，如果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)