首页  >  Excel

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

Excel 2019-08-02 00:10:48 159

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

方法同上,这个适用于少量表格。

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

多个工作表合并到一个工作表 五个工作表合并 怎么合并工作表 工作表怎么做表格 批量合并工作表 两个工作表怎么合并 wps合并工作表 多个wps工作表合并 合并工
版权声明

本文来自投稿,不代表本站立场,转载请注明出处。

分享:

扫一扫在手机阅读、分享本文