VBA基於另一工作簿中的工作表自動更新一個工作簿中的表

Question

大家下午好，

我有兩本工作簿，我希望Excel在另一本工作表的基礎上自動更新該表。 我希望工作簿MergetestSheet！2015中的表根據工作簿2015Sheet！1中的表自動更新。范圍A1：p144,031。 有人可以提供VBA代碼幫助嗎？

謝謝

Answer 1

Devin的答案很好用，但您要盡可能避免使用.select 。 我會建議更多類似的東西：

sub Transfer()

    Dim copyRangeValues as Long
    Dim destinationRange as Range
    Workbook("2015.xls").Activate
    set copyRangeValues = Worksheet("Sheet1").Range("A1:P144031").Value
    Worksheet("Mergetest.xls").Activate
    set destinationRange = Worksheet("Sheet1").Range("A1:P144031") 
    destinationRange.Value = copyRangeValues

End Sub

假定A1：P144031也是第二張表中表格所在的單元格范圍。如果不是，則需要對其進行修改，或者添加一些計數器變量以使其更加自動化。

Answer 2

您總是可以只從一個工作簿復制數據，然后將其粘貼到另一個工作簿。

像這樣：

Sub Transfer_Data()

Windows("2015").Activate
Range ("A1:P144031").Select
Selection.Copy
Windows("Mergetest").Activate
Range ("A1").Select
ActiveSheet.Paste

End Sub