輸入以下代碼：

Private Sub CommandButton1_Click()

Dim path, yuan_name? '定義路徑名，被合并表名稱

Dim wb As Workbook

path = ThisWorkbook.path '指定路徑為合并新表所在路徑

yuan_name = Dir(path & "\" & "*.xlsx") '從該文件夾內遍歷所有要合并的表格

Do While yuan_name <> ""? '遍歷的表格名不為空就進入循環

Set wb = Workbooks.Open(path & "\" & yuan_name) '打開遍歷到的表格

wb.Sheets(1).Range("a2", wb.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell)).Copy? '從a2開始到已用區域最后一個單元格的范圍全部復制

ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues? '從a列最后一個有數據的單元格后的空格開始粘貼

wb.Close (False) '復制粘貼完成后關閉被合并的表

yuan_name = Dir? '繼續遍歷

Loop

End Sub

總結

以上是生活随笔為你收集整理的vba批量合并指定的sheet_Excel VBA 多个工作表合并方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。