Question

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

例如：

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

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

谢谢！

Answer 1

我将向您展示一个如何实现您想要的简单示例。您必须修改代码以满足您的需求。

以下代码是Sheet1!$D$1和Apple的示例。我假设这些值存储在单元格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

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

1 个答案: