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

易雪龙 · 2018-04-11 08:00 · Word联盟
摘要:许多公司开始统计之前每月的销售表格,做一个整年的销售统计表。有的小公司的表格可能不是很多,手动就可以整好。但是对于一些需要整合大量表格的公司来说是一件很费时的事情。所以,易老师这里分享几个快速合并并计算表格、工作表的方案!

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

先从简单的看起!在一个表格中合并计算多个表。【数据】-【数据工具】-【合并计算】。

轻松合并并计算海量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表格、工作表


发送
获取验证码
确定
恭喜您投票成功