[day 4]用VBA实现复制EXCEL某行数据到另一个EXCEL最后一行

#跟着文心一言学VBA

Sub MergeFiles()
    Dim source_file As Workbook
    Dim destination_file As Workbook
    Dim source_sheet As Worksheet
    Dim destination_sheet As Worksheet
    
    Dim lastRow As Long
 
      
    ' 选择要合并数据的源工作簿和目标工作簿
    Set source_file = Workbooks.Open("D:\小时\test\1.xlsx")
    Set destination_file = Workbooks.Open("D:\小时\test\2.xlsx")
      
    ' 选择要合并数据的源工作表和目标工作表
    Set source_sheet = source_file.Worksheets("Sheet1")
    Set destination_sheet = destination_file.Worksheets("Sheet1")
    
    lastRow = destination_sheet.Cells(Rows.Count, 1).End(xlUp).Row
      
    ' 复制数据
    source_sheet.Rows("1:1").Copy Destination := destination_sheet.Rows("1:1").End(xlUp).Offset(lastRow, 0)
      
    ' 保存合并后的文件
    source_file.Save
    
End Sub