如何合并多个Excel文件中的数据表格

合并Excel文件到同一工作簿不同工作表

在合并多个Excel文件到同一工作簿的不同工作表时，首先需要在指定位置创建多个Excel文件。然后打开一个名为allExcel的文件，并按下Alt F11调出VB编辑接口。点击ThisWorkBook，并粘贴提供的代码。这段代码的功能是浏览选择要合并的文件夹，并将选定文件夹中的所有Excel文件逐一复制到新建的工作簿中的不同工作表中。

VB代码实现文件合并功能

```vb

Private Sub hb()

Dim hb As Object, kOne As Boolean, tabcolor As Long

Set hb

Application.DisplayAlerts False

For i To 2 Step -1

(i).Delete

Next

Dim FileName As String, FilePath As String

Dim iFolder As Object, rwk As Object, Sh As Object

Set iFolder CreateObject("").BrowseForFolder(0, "请选择要合并的文件夹", 0, "")

If iFolder Is Nothing Then Exit Sub

FilePath

FilePath IIf(Right(FilePath, 1) ";", FilePath, FilePath ";")

FileName Dir(FilePath "*.xls*")

Do Until Len(FileName) 0

If UCase(FilePath FileName) <> UCase( "" ) Then

Set rwk (FileName:FilePath FileName)

tabcolor Int(Rnd * 56) 1

With rwk

For Each Sh In .Worksheets

After:()

().Name FileName "-"

() tabcolor

Next

If Not kOne Then

(1).Delete: kOne True

End If

.Close True

End With

End If

Set rwk Nothing

FileName Dir

Loop

Application.DisplayAlerts True

End Sub

```

执行代码合并文件

按下F5运行代码，会弹出一个窗口让您选择要合并的文件夹。执行完代码后，您会发现选定文件夹中的所有Excel文件已经成功合并到同一工作簿的不同工作表中了。

通过以上步骤，您可以轻松地合并多个Excel文件中的数据表格，方便进行数据整理和分析。这种自动化的合并方法能够节省大量时间和精力，提高工作效率。如果您经常需要处理大量Excel数据，不妨尝试使用VB代码来快速、准确地实现文件合并功能。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。