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