今天小風(fēng)給大家收集了一些excel有多個(gè)工作表怎么快速合并到某一張表，excel多個(gè)工作表數(shù)據(jù)快速合并到一個(gè)工作表方法方面的信息來分享給大家，如果大家感興趣的話就接著看下面得文章吧

1、利用VBA將數(shù)據(jù)區(qū)域不定的多個(gè)工作表數(shù)據(jù)快速合并到一個(gè)工作表方法，接下來將為大家簡單介紹一下。材料/工具ExcelVAB方法

1、1、假設(shè)分別有工作表1、、2、、3、。

1、2、將鼠標(biāo)指針移至“Sheet1、”，右鍵選擇“查看源代碼”，即可打開VBE編輯器，

1、3、在工程窗口下的Microsoft Excel對(duì)象右鍵“插入”，點(diǎn)擊“模塊”，新建一個(gè)模塊1、。

1、4、輸入如圖所示的代碼。

1、

2、OptionExplicit

3、Subhbgzb()

4、DimshAsWorksheet,flagAsBoolean,iAsInteger,hrowAsInteger,hrowcAsInteger

5、flag=False

6、Fori=1、ToSheets.Count

7、IfSheets(i).Name="合并數(shù)據(jù)"Thenflag=True

8、Next

9、Ifflag=FalseThen

10、Setsh=Worksheets.Add

11、sh.Name="合并數(shù)據(jù)"

12、Sheets("合并數(shù)據(jù)").Moveafter:=Sheets(Sheets.Count)

13、EndIf

14、Fori=1、ToSheets.Count

15、IfSheets(i).Name<>"合并數(shù)據(jù)"Then

16、hrow=Sheets("合并數(shù)據(jù)").UsedRange.Row

17、hrowc=Sheets("合并數(shù)據(jù)").UsedRange.Rows.Count

18、If hrowc = 1、 Then

19、Sheets(i).UsedRange.CopySheets("合并數(shù)據(jù)").Cells(hrow,1、).End(xlUp)

20、Else

21、Sheets(i).UsedRange.CopySheets("合并數(shù)據(jù)").Cells(hrow+hrowc-1、,1、). Offset(1、,0)

22、EndIf

23、EndIf

24、Nexti

25、EndSub

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