經(jīng)常我們?cè)谧鼋y(tǒng)計(jì)的時(shí)候，需要把一個(gè)EXCEL工作薄中的幾張結(jié)構(gòu)相同的工作表合并在一起，然后需要合并到一個(gè)工作表中數(shù)據(jù)分析；

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

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

請(qǐng)繼續(xù)往往下看：

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

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

在合并匯總工作表標(biāo)簽上面，點(diǎn)右鍵，然后選擇 查看代碼

第一步

把代碼粘貼進(jìn)去，然后點(diǎn)上面的，運(yùn)行按鈕，就搞定了；

PS:合并完成了，會(huì)彈出一個(gè)提示對(duì)話框，你點(diǎn)確定即可；

第二步

Excel2016圖表制作從入門(mén)到精通

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

1元 25人已購(gòu) 詳情

代碼如下：

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

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 "當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！", vbInformation, "提示"

End Sub