pandas excel有多个工作表_Excel通用一键汇总指定文件夹里的多个工作表

给大家分享一个EXCEL一键汇总的小方法。通过VBA实现，按键可以放到工具栏。网上能找到许多类似汇总代码，如果不懂得话不太敢用，因为工作中用的比较多就完善了一下，通用性考虑得更多些，现在分享给大家。

在这之前先明确两个名词 “工作表”和“工作簿”，工作表这里指的是EXCEL文件，工作簿指的是工作表里的sheet1，sheet2之类的。

工作簿

工作表

因为有的地方这两个是反过来的。

先看一下汇总效果

一键汇总“各村”文件夹里的Excel文件

然后是EXCEL设置

第一步：宏设置

第二步：快捷键设置

TXT中的就是汇总代码，注意步骤不能漏。

代码如下：

Sub 工作表__总表()

Dim wb, wb1 As Workbook

Dim fso, ff, f As Object

Dim p As String

Dim a, b, c As Long

Dim d, e

Set wb1 = ActiveWorkbook

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = ActiveWorkbook.Path

.Title = "请指定要汇总的文件夹"

If .Show = -1 Then

p = .SelectedItems(1)

Else

Exit Sub

End If

End With

c = Val(InputBox("请输入表头行数"))

If c = 0 Then

Exit Sub

End If

d = Timer

Application.ScreenUpdating = False

wb1.Sheets(1).Rows().ClearContents '清空目标表第一个工作簿

Set fso = CreateObject("scripting.filesystemobject")

Set ff = fso.getfolder(p)

For Each f In ff.Files '对指定文件夹循环每个文件

If Split(f.Name, ".")(UBound(Split(f.Name, "."))) Like "*xls*" Then '判断是不是Excel文件

Set wb = GetObject(f.Path)

If wb.Sheets(1).AutoFilterMode = True Then

wb.Sheets(1).Range("a" & 1 & ":z" & 65536).AutoFilter

End If

If wb1.Sheets(1).Cells(1, 1).Value = "" Then

wb.Sheets(1).UsedRange.Copy wb1.Sheets(1).Cells(1, 1)

'

Else

a = wb1.Sheets(1).Cells(65535, 1).End(xlUp).Row 'wb1目标工作表

b = wb.Sheets(1).Cells(65535, 1).End(xlUp).Row

wb.Sheets(1).Rows(c + 1 & ":" & b).Copy wb1.Sheets(1).Cells(a + 1, 1)

'

End If

wb.Close savechanges:=False

Set wb = Nothing

End If

Next

e = Timer - d

MsgBox "汇总成功，用时" & e & "秒"

Application.ScreenUpdating = True

End Sub

有些要注意的地方：1、要汇总的Excel文件都放到同一个文件夹里面，每个文件格式要一致，就是说表头要一致。2、每个表的最后一行数据的第一列不能为空，不然这行数据会统计不到。3、汇总文件放文件夹外面。

这次就到这，回头把总表按指定列分发工作表的代码发出来。