将EXCEL中的多个SHEET中内容合并到一个SHEET中

1、新建一个Sheet，命名为“All”（名字可随意）；右键点击新建Sheet，选择查看代码，或者“Alt+F11”键打开VBA编辑窗口。

2、在左侧对应的Sheet“All”上双击，弹出窗口空白处粘贴下面的代码。Subhb(拘七呷憎)Dimbt,i,r,c,n,firstAsLongbt=1'表头行数，多行改为对应数值C髫潋啜缅ells.ClearFori=1ToSheets.CountIfSheets(i).Name<>ActiveSheet.NameThenIffirst=0Thenc=Sheets(i).Cells(1,Columns.Count).End(xlToLeft).ColumnSheets(i).Range("A1").Resize(bt,c).CopyRange("A1")n=bt+1:first=1EndIfr=Sheets(i).Cells(Rows.Count,"A").End(xlUp).RowSheets(i).Range("A"&bt+1).Resize(r-1,c).CopyRange("A"&n)n=n+r-btEndIfNextEndSub

3、“F5”键或点击运行菜单，合并成功！