如何将数据从一个工作表复制到另一个工作表（使用后一个工作表的间接引用）

Question

我正在尝试将一些简单的 VBA 函数添加到工作中的 excel 文件（我在一家营销公司工作）并且正在努力编写一个可以将数据从一张表复制到另一张表的按钮（它需要复制到的位置每天更换）

我正在使用 VBA 来尝试选择我需要复制的值范围（并且它有效），但我正在努力将它们粘贴到所需的日常变化的单元格中。 我已经尝试编写一个公式来提供通往正确单元格的路径，然后在 VBA 代码中引入一个间接函数以进行粘贴，但我似乎无法让它工作。

Sub Gross_Wrap_Click()

Sheets("AUTOM").Select
Range("C1:C5").Select
Selection.Copy

Sheets("Daily").Select
Range([indirect("'AUTOM!O7'")]).Select
Selection.Paste

End Sub

我希望最终产品是 AUTOM 表中的单元格 C1:C5 的内容，复制并粘贴到 DAILY 表中所需的单元格（所需的单元格来自一个函数，并包含在 VBA 中，具有间接路径） .

但是，我只是收到大量不同的错误消息

Answer 1

如果我没有在阅读您的代码时弄乱它，应该这样做：

Option Explicit
Sub Test()

    Dim rng As Range 'Range object, means a cell or a range of cells
    With ThisWorkbook 'here you reference the workbook, so you don't need to write Thisworkbook everytime, just "."
        Set rng = .Sheets("Daily").Find(.Sheets("AUTOM").Range("O7")) 'we set the object rng to the cell in sheets Daily which has the Cell O7 from AUTOM sheet value.
        .Sheets("AUTOM").Range("C1:C5").Copy 'copy the range from AUTOM
        rng.PasteSpecial xlPasteValues  'and paste it's values to the range object we declared and defined above
    End With

End Sub