Question

我正在尝试制作一个模板表，其中的数据位于另一个文件中。我想知道如何在不破坏格式的情况下将值复制到模板表中。

我对VBA还是很陌生，所以我确定有很多冗余和更有效的方法来完成此任务。任何意见是极大的赞赏。

Sub PlatingSheet()


    Dim sourceColumn As Range, targetColumn As Range

    Workbooks.Open ("\\in-mmge-file\users\tbever\Desktop\VBA\Plating Sheets\Copy - 24605_17 QC Results and Notes.xlsx")
   Workbooks.Open ("\\in-mmge-file\users\tbever\Desktop\VBA\Plating Sheets\Copy - 1.1Unified_Plating_Template.xlsx")


    Set sourceColumn = Workbooks("Copy - 24605_17 Results and >Notes.xlsx").Worksheets(1).Range("B5:B96")
    Set targetColumn = Workbooks("Copy - 1.1 >Fluidigm_Unified_Plating_Template.xlsx").Worksheets(1).Range("G4:G94").Past>eSpecial(xlPasteValues)

    sourceColumn.Copy
    targetColumn.PasteSpecial xlPasteValues
    Application.CutCopyMode = False

 End Sub

Answer 1

类似这样的东西：

replenish

Answer 2

什么是Power Query？您不需要任何VBA，它非常直观。当然，您可以自动刷新数据-例如在打开文件时。只需在Excel上转到“数据”>“获取外部数据”>“从文件”>“ Excel”。

将值从一个Excel文件复制到另一个

2 个答案: