vba复制不同图纸和单元格中的值

我有点问题。我有一个表，在一个选项卡中有两行和几列。一行包含多个单词，第二行包含复制这些值的位置

例如：

  Row 1 Sheet1!$D$1 Sheet5!$F$1 Sheet6$F$1  Sheet3!$D$1
  Row 2 apple           peer            orange          sum

例如，我想将apple复制到单元格D1中的tab:sheet 1。 这在vba中可能吗

---

谢谢

我将向您展示一个关于如何实现您的目标的简单示例。你必须修改守则以适应你的需要

下面的代码是

Sheet1的示例$D$1

和苹果公司。我假设这些值存储在单元格

A1

和

A2

中的“Sheet2”中。此外，我没有做任何错误处理。希望你也能处理好

Sub Sample()
    Dim rng As Range
    Dim Sh As String, Cl As String
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet2")

    With ws
        Sh = Split(.Range("A1").Value, "!")(0)
        Cl = Split(.Range("A1").Value, "!")(1)

        Set rng = ThisWorkbook.Sheets(Sh).Range(Cl)

        rng.Value = .Range("A2").Value
    End With
End Sub

---

谢谢我会调查的！