计算机表格单元格合并,Excel表格合并工具_将多个Excel表格合并为一个 Excel表数据合并...

《Excel表格合并工具》是一个免费的Excel表数据合并工具,它可以帮您将多个小的Excel表格合并为一个大的Excel表格,对于需要N多合并汇总Excel表数据的工作,手工复制的小伙伴来讲,它的功能可是不容忽视的。

该Excel表格合并工具能合并多个Excel文件的工作表到一个工作表,也能合并多个工作表到一个工作薄中。

你往往使用Excel的话,这个Excel合并工具对你是很有帮助的。

快速合并多个Excel表格为一个Excel表格教程:

1、将多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。

738691143fe8958f896709db473c7321.png

53a9e036e11fc9717fa88541a2817f41.png

2、打开新建的excel表,并右键点击sheet1,找到查看代码,单击进去。进去之后就看到了宏计算界面。

12ab7dff652744e93a7ba3f056f2d907.png

be509ec34a3dd9d52bd112bb41413f2c.png

3、而后我们将下面这些宏计算的代码复制进去,而后找到工具栏上的运行下的运行子过程/用户窗体,代码如下:

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath + \ + *.xls)

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <>

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath + \ + MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range(B65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range(B65536).End(xlUp).Row + 1, 1)

Next

WbN = WbN + Chr(13) + Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range(B1).Select

Application.ScreenUpdating = True

MsgBox 共合并了 + Num + 个工作薄下的全部工作表。如下: + Chr(13) + WbN, vbInformation, 提示

End Sub

b5685902c39641194bc02dbfed67a39b.png

26e73ecd134a3c36eeff31be9809a7c0.png

4、运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定即可。查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。

c422521979c637ee6f3a9889e702cdd3.png

f2cc9dcd904a4cd0098f7467a2bd4ae4.png

你是否看了上的教程感觉合并多个Excel表格为一个很麻烦呢?其实小编也以为不如借助Excel表格合并工具来的方便。

界面预览图:

385dfbf33e7b76b8d32e8c025dc7b55c.png

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值