如何把excel多個(gè)sheet合并（百度搜的，非原創(chuàng)）

新建一個(gè)Sheet，命名為“All”（名字可隨意）；右鍵點(diǎn)擊新建Sheet，選擇查看代碼，或者“Alt+F11”鍵打開VBA編輯窗口。

在左側(cè)對應(yīng)的Sheet“All”上雙擊，彈出窗口空白處粘貼下面的代碼。

Sub?hb()?

Dim?bt,?i,?r,?c,?n,?first?As?Long?

bt?=?1?'表頭行數(shù)，多行改為對應(yīng)數(shù)值?

Cells.Clear?

For?i?=?1?To?Sheets.Count?

????If?Sheets(i).Name?<>?ActiveSheet.Name?Then?

????????If?first?=?0?Then?

????????????c?=?Sheets(i).Cells(1,?Columns.Count).End(xlToLeft).Column?

????????????Sheets(i).Range("A1").Resize(bt,?c).Copy?Range("A1")?

????????????n?=?bt?+?1:?first?=?1?

????????End?If?

????????r?=?Sheets(i).Cells(Rows.Count,?"A").End(xlUp).Row?

????????Sheets(i).Range("A"?&?bt?+?1).Resize(r?-?1,?c).Copy?Range("A"?&?n)?

????????n?=?n?+?r?-?bt?

????End?If?

Next?

End?Sub

3

“F5”鍵或點(diǎn)擊運(yùn)行菜單，合并成功！