今天小風(fēng)給大家收集了一些excel合并多個(gè)工作表數(shù)據(jù)到一個(gè)工作表，EXCEL如何將兩個(gè)或多個(gè)工作表合并成一個(gè)工作表方面的信息來(lái)分享給大家，如果大家感興趣的話就接著看下面得文章吧

1、Excel有很多頁(yè)的數(shù)據(jù)需要合并到一個(gè)頁(yè)面，一頁(yè)頁(yè)的復(fù)制粘貼比較麻煩。小編給大家分享Excel的宏計(jì)算來(lái)解決這個(gè)問(wèn)題材料/工具Excel2、01、6、方法

1、1、打開(kāi)一個(gè)Excel文檔，顯示有三個(gè)Sheet

1、2、三個(gè)Sheet分別的內(nèi)容

1、3、點(diǎn)擊Sheet欄后面的【+】

1、4、創(chuàng)建一個(gè)叫“合并”的Sheet

1、5、右鍵“合并”Sheet選擇【查看代碼】

1、6、打開(kāi)VBA編輯窗口

1、7、輸入以下代碼：

1、

1、

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

2、Application.ScreenUpdating = False

3、For j = 1、 To Sheets.Count

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

5、 X = Range("A6、5、5、3、6、").End(xlUp).Row + 1、

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

7、 End If

8、Next

9、Range("B1、").Select

10、Application.ScreenUpdating = True

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

12、End Sub

13、8、點(diǎn)擊【運(yùn)行】選擇【運(yùn)行子過(guò)程/用戶窗體】

13、9、彈提示窗口

13、1、0回到“合并”Sheet就能看見(jiàn)成功合并

13、怎么樣，是不是很簡(jiǎn)單呢~

本文到此結(jié)束，希望對(duì)大家有所幫助。

版權(quán)說(shuō)明：本文由用戶上傳，如有侵權(quán)請(qǐng)聯(lián)系刪除！

標(biāo)簽：