VBA在不同的工作表和单元格中复制值

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

例如 ：

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

所以，例如，我想将苹果复制到单元格D1中的表1：表1。 这是可能的VBA？

谢谢！！

Answer 1

我会告诉你一个简单的例子，如何实现你想要的。 您将不得不修改代码以满足您的需求。

以下代码是Sheet1!$D$1和Apple的示例。 我假设这些值存储在单元格A1和A2 “Sheet2”中。 另外我没有做任何error handling。 希望你也照顾好。

 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