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