0

这应该是我希望的一个简单问题。

我在单元格中有一个简单的公式,工作表名称是 Entry

=Entry!D10

我有 5 个单元格,其中都有类似的公式。我希望能够将form button这些公式中的结果推送并复制到另一个工作表上的新行中。

4

1 回答 1

0

这是一个跨公式移植而不会出现 #ref 错误的示例

Sub Sample()
    Dim ws1 As Worksheet, ws2 As Worksheet

    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")

    ws1.Range("A1").Formula = ws2.Range("C1").Formula
    ws1.Range("D1").Formula = ws2.Range("F1").Formula
End Sub
于 2013-10-24T06:13:04.157 回答