經(jīng)常我們在做統(tǒng)計的時候，需要把一個EXCEL工作薄中的幾張結構相同的工作表合并在一起，然后需要合并到一個工作表中數(shù)據(jù)分析；

其實如果工作表數(shù)量少的話，還可以復制粘貼就可以了，當有數(shù)據(jù)量較大，或者是你經(jīng)常要做這項工作的時候，復制粘貼就顯得比較繁瑣；

Excel功能超強大，要把不同工作表合并在一起，方法很多，我們這里介紹的是使用VBA的，就5秒鐘就搞定；

請繼續(xù)往往下看：

原始數(shù)據(jù)如圖： 有四個工作表，結構是一樣的，另外新建了一個工作表，作為匯總用；

原始數(shù)據(jù)

在合并匯總工作表標簽上面，點右鍵，然后選擇 查看代碼

第一步

把代碼粘貼進去，然后點上面的，運行按鈕，就搞定了；

PS:合并完成了，會彈出一個提示對話框，你點確定即可；

第二步

Excel2016圖表制作從入門到精通

作者：Excel小技巧-office教程word,excel,powerpoint視頻課件，小技巧

1元 25人已購 詳情

代碼如下：

Sub 合并當前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "當前工作簿下的全部工作表已經(jīng)合并完畢！", vbInformation, "提示"

End Sub