轻松合并并计算海量Excel表格、工作表

  1. ExcelVBA实例
  2. 2018-01-25
  3. 0
轻松合并并计算海量Excel表格、工作表
又到年底了,许多公司开始统计之前每月的销售表格,做一个整年的销售统计表。有的小公司的表格可能不是很多,手动就可以整好。但是对于一些需要整合大量表格的公司来说是一件很费时的事情。所以,易老师这里分享几个快速合并并计算表格、工作表的方案!

一个表格中多个表合并计算

先从简单的看起!在一个表格中合并计算多个表。【数据】-【数据工具】-【合并计算】。 轻松合并并计算海量Excel表格、工作表

合并计算多个工作簿中的表格

方法同上,这个适用于少量表格。 轻松合并并计算海量Excel表格、工作表

大量Sheet需要合并

这个我们可以用一下VBA,代码如下: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count    If Sheets(j).Name <> ActiveSheet.Name Then        X = Range("A65536").End(xlUp).Row + 1        Sheets(j).UsedRange.Copy Cells(X, 1)    End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "OK啦!", vbInformation, "提示" End Sub 轻松合并并计算海量Excel表格、工作表

大量表格及表格中的Sheet需要合并

代码如下: 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   轻松合并并计算海量Excel表格、工作表 轻松合并并计算海量Excel表格、工作表

大量表格合并后求和计算

大量的数据在一个表格中,这个时候合并计算,我们可以用数据透视表,快速的搞定。 轻松合并并计算海量Excel表格、工作表
  1. 关注微信关注微信

猜你喜欢

最新评论:0条

发表评论

看不清?点击更换

微信公众号

微信公众号
沙龙国际娱乐城