如何把excel多個工作表合在壹起

1、新建壹個Excel，ALT?+?F11打開VBA編輯器；

2、菜單欄，插入模塊；

3、粘貼代碼：

Dim?fn$

Dim?dir_path$

Dim?rs?As?Worksheet

Dim?wk?As?Workbook

'需要遍歷的目錄

dir_path?=?"E:\我的文檔\工作\桌面目錄\簽章簽名統計"

'取消顯示警告

Application.DisplayAlerts?=?False

'控制要遍歷的文件格式

fn?=?Dir(dir_path?&?"\*.csv")

If?fn?=?""?Then?MsgBox?"該目錄下沒有要打開的文件"

Do

Set?wk?=?Workbooks.Open(dir_path?&?"\"?&?fn)

For?Each?rs?In?wk.Worksheets

'判斷當前Sheet是否為空，為空跳過

If?Application.CountA(Sh.UsedRange.Cells)?=?0?Then

rs.Copy?ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

End?If

Next

wk.Close?True

fn?=?Dir

Loop?While?fn?<>?""

'打開警告

Application.DisplayAlerts?=?True

End?Sub

4、修改代碼中目錄地址以及文件後綴，運行代碼；

5、保存生成的Excel；