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

VBA基于不同工作簿中的工作表自动更新一个工作簿中的表

2 个答案: