将2本工作簿并排整合

时间:2018-01-23 17:17:16

标签: vba excel-vba excel

我有2个不同的工作簿,按部分1和部分2的名称都有18个字段,但部分有不同的数据,第1部分有不同,我的要求是我需要将第2部分的数据复制到第1部分,如果第1部分具有从A列到S列的数据,然后需要将第2部分数据放入列T到列AJ或直到有数据进入列,直到下面的最后一行是我记录的宏,两张表都保存在E中:\巩固数据,可以创建新工作簿,或者我们可以整理工作表第1部分中的数据,请帮助

Sub Merging()
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Part1.xlsx").Activate
Selection.End(xlToRight).Select
Range("S1").Select
ActiveSheet.Paste
Windows("Part2.xlsx").Activate
Application.CutCopyMode = False
ActiveWindow.Close
End Sub

录制宏是一个漫长的过程,但由于我是VBA的新手,因此我无法附加录制的代码,因此我无法添加录制的代码

0 个答案:

没有答案