Excel 在VBA中创建简单宏--使用单元格中的文本作为地址

我正在制作一份财务工作表，做一些简单的数学运算

我想做一个简单的复制+粘贴，但要用特定单元格中包含的信息指定粘贴路径。我可以使用一个公式（如图所示）根据变量TICKER获得所需的路径，但我不能将包含在单元格中的“变量路径”插入VBA

“复制”值为蓝色。 所需（动态）目的地为黄色。 顺便说一下，目标工作表不一样，但它在同一个工作簿中

目的是覆盖目标单元格中的价格（作为更新系统）

这是我使用的代码：

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("G31").Copy
            xSheet.Range("(J31)").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Private子命令按钮1\u单击（）
Application.ScreenUpdating=False
将xSheet设置为工作表
设置xSheet=ActiveSheet
如果xSheet.Name“定义”和xSheet.Name“fx”以及xSheet.Name“需要”，则
X图纸范围（“G31”）。副本
xSheet.Range（“（J31）”）.Paste特殊粘贴：=xlValues，操作：=xlNone，SkipBlanks:=False，转置：=False
如果结束
Application.ScreenUpdating=True
端接头

---

你能帮我吗？

xSheet.Range（Range（“J31”）.Value）.Paste特殊粘贴：=xlValues，操作：=…

将获取

J31

中的文本，并将其用作范围地址以粘贴到完美，这很有效，谢谢！但是如何分配这个精确的值以使它转到另一张图纸？我试着插入“工作表名称”！在它前面，没有成功。那将是

工作表（“Sheet_Name”）.Range（xSheet.Range（“J31”）.Value）。粘贴特殊…

太好了，这正是我想要的。非常感谢你。