在Excel之间复制数据所需的公式

Question

我需要将模型代码从workbook1复制到workbook2。当我在workbook1中键入模型代码时，它应该自动复制到workbook2中。请帮助我如何完成这项工作。

Answer 1

如果您的目标工作簿已经打开，则以下内容应该有效。您应该定义将数据复制到的工作表（此处为“Sheet1”）。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Destination As Range

    Set Destination = Workbooks("newexcel.xls").Worksheets("Sheet1").Range(Target.Address)
    Destination.Value = Target

End Sub