在实际工作中，您经常需要处理各种Excel文件，例如合并很多个相同格式的Excel文件，或者同一个excel文件中很多个sheet，这种情况是不是常常令您头疼？

您是否想过让计算机帮您自动处理？说不定，您花两天做的事情，计算机十多分钟可能就完成了。

下面提供了三种合并数据的场景下的python代码和VB代码，可以复制粘贴直接使用~~

场景一

很多个相同格式的Excel文件，每个文件的表头都是一样的，存放在不同的文件夹下，如下图所示，

1、Python代码：

# !/usr/bin/python

# coding=utf-8

import os

import pandas as pd

import glob

FileNum = 0

dirList = []

exList = []

def CollectExcelCase1(path):

global FileNum

# 读取所在目录下的文件名称，返回列表

files = os.listdir(path)

# 循环处理列表中每个文件

for f in files:

# 判断是否文件夹

if(os.path.isdir(path + '/' + f)):

# 排除隐藏文件夹，因为隐藏文件夹过多

if(f[0] == '.'):

pass

else:

# 添加非隐藏文件夹

dirList.append(f)

# 循环处理每个子文件夹

for dl in dirList:

# 取出每个子文件夹中的excel文件，返回列表

fileList = glob.glob(os.path.join(dl, "*.xlsx"))

# 循环每个excel文件

for fl in fileList:

# 读取excel文件中的内容，并加入到列表中

exList.append(pd.read_excel(fl, index_col=None))

# 统计处理的文件数

FileNum = FileNum + 1

# 将exlist进行纵向合并转换为DataFrame类型

df=pd.concat(exList,axis=0)

# 将结果写入到文件CollecttoExcel.xlsx中

df.to_excel("CollecttoExcel.xlsx",encoding='gb2312')

if __name__=='__main__':

CollectExcelCase1("./")

print('一共合并了',FileNum,"个Excel文件")

2、VB代码：

单独创建一个文件夹，并新建一个Excel启用宏的工作簿，如下图所示，我们将文件夹1-5中的excel文件内容合并到结果文件夹中的CollecttoExcelVB.xlsm中

打开excel文件，在开发工具中，点击Visual Basic，打开VB编程页面，在左侧右击插入，选择模块，将以下代码拷贝至右侧的编辑区域，点击运行子过程/用户窗体，运行宏程序，确认没问题，点击保存即可。

每次打开excel文件，可以在开发工具中点击宏，然后运行宏程序。

也可以添加一个按钮，在开发工具-插入中点击按钮，然后在弹出的对话框中指定刚才的宏，点击确定，即完成添加按钮。以后每次打开这个文件时，只要点击这个按钮，即可自动执行宏，进行合并数据。

VB代码如下：

Option Explicit

Sub CollectToExcel()

Dim mypath, myfld, myfile, m, j, wb, arr()

Sheet1.UsedRange.Offset(1, 0).ClearContents '清除汇总表里面的内容

mypath = ThisWorkbook.Path & "\" '获取当前文件所在的路径

myfld = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) & "\" '获取当前文件所在路径的上一级路径

myfile = Dir(myfld, vbDirectory) '遍历上一级路径下的所有文件夹

'将所有文件夹路径存入数组arr中

Do While myfile <> "" '当返回值不为空时

If myfile <> "." And myfile <> ".." Then '当返回值不是"."（当前文件夹）或".."（上层文件夹）

If (GetAttr(myfld & myfile) And vbDirectory) = vbDirectory Then '如果得到的是文件夹

m = m + 1 '计算器

ReDim Preserve arr(m) '重定义数组arr

arr(m) = myfld & myfile & "\"

End If

End If

myfile = Dir '查找下一个文件夹

Loop '至此所有文件夹路径已放在数组arr中

'下面开始遍历每个文件夹中的excel文件

For j = 1 To m

myfile = Dir(arr(j) & "*.xlsx")

While myfile <> "" And myfile <> ThisWorkbook.Name '当每个文件夹中的EXCEL文件不为空，且不是当前的EXCEL文件时，执行下面操作

Set wb = CreateObject(arr(j) & myfile)

With wb.Sheets(1)

.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.[a1048576].End(xlUp).Row + 1) '将每个EXCEL文件的数据(第一行除外)拷贝至当前EXCEL文件

End With

wb.Close

myfile = Dir()

Wend

Next

Set wb = Nothing

'下面对当前的EXCEL文件进行格式统一

With Sheet1.Range("A1:Z65535").Font

.Name = "黑体"

.Size = 10

End With

End Sub

场景二

同一文件夹下，很多个相同格式的Excel文件，每个文件的表头都是一样的，如下图所示，

1、python代码实现：

#coding=utf-8

import os

import pandas as pd

excels = [

# 读取excel文件

pd.read_excel(fname)

# 循环读取默认路径下的excel文件，默认路径为与该程序文件相同的文件夹路径

for fname in os.listdir("./")

# 只读去excel文件

if ".xlsx" in fname

]

# 合并所有excel文件

df = pd.concat(excels)

# 将合并结果输出到CollecttoExcel.xlsx文件中

df.to_excel("CollecttoExcel.xlsx",index = False)

2、VB代码：

Option Explicit

Sub CollectToExcel()

Dim mypath, myfld, myfile, m, j, wb

Sheet1.UsedRange.Offset(1, 0).ClearContents '清除汇总表里面的内容

mypath = ThisWorkbook.Path & "\" '获取当前文件所在的路径

myfile = Dir(mypath & "\" & "*.xlsx") '从当前文件夹中获取所有要合并的表格

Do While myfile <> ""

'Set wb = Workbooks.Open(mypath & "\" & myfile) '打开遍历到的表格

While myfile <> "" And myfile <> ThisWorkbook.Name 'excel文件不为空，且不是当前的excel文件时，执行下面的操作

Set wb = CreateObject(mypath & myfile) '读取每个excel文件的内容

With wb.Sheets(1)

.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.[a1048576].End(xlUp).Row + 1) '将每个EXCEL文件的数据(第一行除外)拷贝至当前EXCEL文件

End With

wb.Close

myfile = Dir()

Wend

Loop

End Sub

场景三

同一个excel，有很多个相同格式的sheet文件，每个sheet的表头都是一样的，如下图所示，

1、Python代码：

#coding=utf-8

import os

import pandas as pd

# 读取excel文件内容，列表返回

files = pd.read_excel('./ExcelFile.xlsx',None)

# 获取excel文件中sheet的个数

sheets = list(files.keys())

fl = []

for i in sheets:

# 读取每个sheet的内容

sheet = files[i]

# 将读取的内容添加到结果中

fl.append(sheet)

# 将结果进行纵向合并转换为DataFrame类型

df = pd.concat(fl,axis=0)

# 将结果写入到文件CollecttoExcel.xlsx中

df.to_excel("CollecttoExcel.xlsx",index = False)

2、VB代码：

Option Explicit

Sub CollectToExcel()

Dim mypath, myfld, myfile, wb, j

Sheet1.UsedRange.Offset(1, 0).ClearContents '清除汇总表里面的内容

mypath = ThisWorkbook.Path & "\" '获取当前文件所在的路径

myfile = Dir(mypath & "\" & "*.xlsx") '从当前文件夹中获取所有要合并的表格

Do While myfile <> ""

Set wb = Workbooks.Open(mypath & "\" & myfile) '打开遍历到的表格

For j = 1 To wb.Sheets.Count '循环处理每个sheet

wb.Sheets(j).Range("a2", wb.Sheets(j).Cells.SpecialCells(xlCellTypeLastCell)).Copy '复制每个sheet的内容，从A2开始到已用区域最后一个单元格的范围全部复制

ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues '将复制的内容粘贴到当前表格中，从A列最后一个有数据的单元格后的空格开始粘贴

Next j

wb.Close (False) '复制粘贴完成后关闭被合并的表

myfile = Dir '继续遍历

Loop

End Sub

声明：本文来自微信公众号“土拨鼠的菜园地”（ID：gh_30a852e13a3a），系原创文章，如需转载，请注明出处。

原文链接：
https://mp.weixin.qq.com/s/0WCsdzXzr381NFxOrK_p1Q