1中合并2个文件

时间:2019-05-10 09:40:06

标签: excel vba

我正在尝试制作一个宏,该宏将使用与新工作簿完全相同的标头的2个“工作簿”数据。我能够创建新的工作簿,从第一个工作簿数据中添加信息,但是然后我不知道如何在第一个复制粘贴所使用的数据之后的第一行中插入下一个数据。

Sub Macro1() 
  Workbooks.Add
  Range("A1").Select 
  Range(Selection, Selection.End(xlToRight)).Select 
  Range(Selection, Selection.End(xlDown)).Select 
  Application.CutCopyMode = False 
  Selection.Copy Windows("Book2").Activate 
  ActiveSheet.Paste 
  Windows("raw file locked.xlsx").Activate 
  Range("A2").Select 
  Range(Selection, Selection.End(xlToRight)).Select 
  Range(Selection, Selection.End(xlDown)).Select 
  Application.CutCopyMode = False 
  Selection.Copy 
  Range("A1541").Select 
  ActiveSheet.Paste 
End Sub

0 个答案:

没有答案