Excel 合并表格

1ActiveSheet.Cells(1, 1).PasteSpecial（拷贝方法为选择性拷贝）
2ActiveSheet.Cells(ActiveSheet.Range(“a65536”).End(xlUp).Row + 1, (索引exce工作簿中最最底部的位置)

Sub 合并()
Sheets(1).Range("a1:F1").Copy
ActiveSheet.Cells(1, 1).PasteSpecial

For i = 1 To Sheets.Count - 1
    Sheets(i).Range("a2", Sheets(i).Cells.SpecialCells(xlCellTypeLastCell)).Copy
    ActiveSheet.Cells(ActiveSheet.Range("a65536").End(xlUp).Row + 1, 1).PasteSpecial
    Next
End Sub

Sub 合并簿()
'获取工作路径
    fpath = ThisWorkbook.Path & "\"
    ’遍历excel文件名
    s_name = Dir(fpath & "*.xlsx")
    
‘Debug.Print fpath

’定义wb为打开的工作蒲
    Set wb = Workbooks.Open(fpath & s_name)
    ‘拷贝
    wb.Sheets(1).Range("a1:f1").Copy
    ’选择性黏贴
    ThisWorkbook.Sheets(1).Cells(1, 1).PasteSpecial
‘do循环 到表名空停止
Do While s_name <> ""
Set wb = Workbooks.Open(fpath & s_name)
’拷贝表中存在文字
wb.Sheets(1).Range("a2", wb.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell)).Copy


ThisWorkbook.Sheets(1).Cells(ActiveSheet.Range("a65536").End(xlUp).Row + 1, 1).PasteSpecial
Application.CutCopyMode = False

wb.Close
s_name = Dir
Loop


End Sub