excel怎么合并工作薄 合并工作薄的两种方法

很多用户不清楚excel怎么合并工作薄，不知道合并的具体方法，下面小编为大家介绍一下如何合并，一起来看吧。

~~~~~~工作薄合并的分割线~~~~~~

问题描述：

-------------------------------------

【方法一】移动或复制工作表（适用于工作薄较少的情况）

1.打开被合并工作薄（北方区域数据）和汇总工作薄；

2.全选被合并工作薄（北方区域数据）中的工作表；

3.建立副本，移动或复制到汇总工作薄中；

4.其他工作薄同方法移动复制。

-------------------------------------

【方法二】VBA代码（适用于工作薄较多的情况）

代码如下：

——————————————————

Sub CombineFiles()

Dim P As String

Dim FN As String

Dim LC As Range

Dim Wkb As Workbook

Dim WS As Worksheet

Dim TWB As String

Dim MyDir As String

MyDir = ThisWorkbook.path & '\'

TWB = ThisWorkbook.Name

Application.EnableEvents = False

Application.ScreenUpdating = False

P = MyDir

FN = Dir(P & '\*.xls', vbNormal)

Do Until FN = ''

If FN <> TWB Then

Set Wkb = Workbooks.Open(FileName:=P & '\' & FN)

For Each WS In Wkb.Worksheets

Set LC = WS.Cells.SpecialCells(xlCellTypeLastCell)

If LC.Value = '' And LC.Address = Range('$A$1').Address Then

Else

WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

End If

Next WS

Wkb.Close False

End If

FN = Dir()

Loop

Application.EnableEvents = True

Application.ScreenUpdating = True

Set Wkb = Nothing

Set LC = Nothing

End Sub

——————————————————

-------------------------------------

以上两种方法各有各的利弊，小伙伴们在实际工作中可以结合自身的情况进行选择。掌握了这两种方法，合并工作薄就再也不是什么难题啦。