Excel表格样式一样怎么合并(excel表格样式一样怎么合并在一起)优质

扫码添加渲大师小管家，免费领取渲染插件、素材、模型、教程合集大礼包！

合并Excel分为两种情况。第一种是将多个Excel文件合并在一个Excel中的不同sheet中；第二种是将多个Excel文件合并在一个Excel文件的一个sheet中。所以Excel表格样式一样怎么合并？我们一起来了解吧！

工具/软件

硬件型号：戴尔灵越15

系统版本：Windows7

所需软件：Excel 2013

方法/步骤

第1步

1。将多个excel的文件合并在一个excel文件的不同sheet中。

（1）首先。我们在Epan下的vb文件夹中创建4个excel文件。明明如下。

第2步

（2）打开命名为allExcel文件。按alt+F11调出vb编辑接口

第3步

（3）点击ThisWorkBook,并粘贴如下代码：

Private Sub hb()

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

Set hb = Workbooks.Add

Application.DisplayAlerts = False

For i = hb.Sheets.Count To 2 Step -1

hb.Sheets(i).Delete

Next

Dim FileName As String, FilePath As String

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

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

If iFolder Is Nothing Then Exit Sub

FilePath = iFolder.Items.Item.Path

FilePath = IIf(Right(FilePath, 1) = "\", FilePath, FilePath & "\")

FileName = Dir(FilePath & "*.xls*")

Do Until Len(FileName) = 0

If UCase(FilePath & FileName) <> UCase(ThisWorkbook.Path & "\" & ThisWorkbook.Name) Then

Set rwk = Workbooks.Open(FileName:=FilePath & FileName)

tabcolor = Int(Rnd * 56) + 1

With rwk

For Each Sh In .Worksheets

Sh.Copy After:=hb.Sheets(hb.Sheets.Count)

hb.Sheets(hb.Sheets.Count).Name = FileName & "-" & Sh.Name

hb.Sheets(hb.Sheets.Count).Tab.ColorIndex = tabcolor

If Not kOne Then hb.Sheets(1).Delete: kOne = True

Next

.Close True

End With

End If

Set rwk = Nothing

FileName = Dir

Loop

Application.DisplayAlerts = True

End Sub

第4步

（4）按F5运行。会弹出让你选择要合并的文件夹的窗口

第5步

（5）代码执行结果如下：

以上关于“Excel表格样式一样怎么合并(excel表格样式一样怎么合并在一起)”的内容小渲今天就介绍到这里。希望这篇文章能够帮助到小伙伴们解决问题。如果觉得教程不详细的话。可以在本站搜索相关的教程学习哦！

以上是由资深渲染大师 小渲 整理编辑的，如果觉得对你有帮助，可以收藏或分享给身边的人