VBA引用名称未知的工作表

时间:2018-03-28 20:15:27

标签: vba worksheet excel-indirect

我有一个工作簿,我需要将Sheet1中的值复制并粘贴到另一个工作表上。但后者的工作表名称取决于Sheet1中的指定值。

Sheet1!A1有“新数据”,需要粘贴到新工作表的单元格E1(取决于Sheet1!C1中指定的内容)。比如说,Sheet1!C1的值为5,然后将“新数据”粘贴到Sheet5!E1。

我还没有在vba中使用过INDIRECT,还是有等价的代码?

Sub updatevalue()
    Set rawentry = Worksheets("Sheet1")
    Set copyto = Worksheets("Farm_1")
    '(not sure how to continue the code using indirect
    'if a different # of farm was assigned
    rawentry.Range("C2")
        .Copy copyto.Cells(Rows.Count, 1)
        .End(xlUp).Offset(2, 1)
        .PasteSpecial xlPasteValues
End Sub

0 个答案:

没有答案