大家下午好,
我有两个工作簿,希望Excel根据一个工作表自动更新另一个工作表中的表。我希望工作簿MergetestSheet!2015中的表根据工作簿2015Sheet!1范围A1:p144,031中的表自动更新。有人可以帮助编写VBA代码吗?
谢谢
发布于 2016-11-09 00:31:42
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也是第二个工作表中的表格所在的单元格范围。如果不是这样,你需要修改它,或者添加一些计数器变量,使其更加自动化。
发布于 2016-11-08 20:25:44
您可以随时从一个工作簿复制数据并将其粘贴到另一个工作簿。
如下所示:
Sub Transfer_Data()
Windows("2015").Activate
Range ("A1:P144031").Select
Selection.Copy
Windows("Mergetest").Activate
Range ("A1").Select
ActiveSheet.Paste
End Sub
https://stackoverflow.com/questions/40494089
复制相似问题