Python对比VBA实现excel表格合并与拆分

# 导入os库
import os

# 修改当前目录为 测试数据所在目录
os.chdir(r'F:\微信公众号\表格合并与拆分\测试数据')

# 查看当前目录下文件列表
os.listdir() 

#获取文件夹下全部文件的绝对路径
for fileName in os.walk(os.getcwd()):
    for table in fileName[]:
        path = fileName[] + '\\' + table
        print(path)

# 导入pandas库
import pandas as pd

print(path)

# 读取某个文件，并预览数据
df = pd.read_excel(path)
print(df.to_markdown())

# 新建一个空列表，用于存储表格数据
fileList = []
# 把文件夹下表格数据放在一个列表里
for fileName in os.walk(os.getcwd()):
    for table in fileName[]:
        path = fileName[] + '\\' + table
        li = pd.read_excel(path)
        fileList.append(li)
# 用concat方法合并表单数据
result = pd.concat(fileList)
# 导出数据
result.to_excel(r'机型汇总数据.xlsx',index=False,sheet_name='汇总')

result

# 按照数量进行排序
result.sort_values(by='数量',ascending=False,inplace=True)
# 重置序号
result['序号'] = range(,len(result.index)+)
result.reset_index(drop=True)

import os
import pandas as pd

# 修改当前目录为 测试数据所在目录
os.chdir(r'F:\微信公众号\表格合并与拆分\测试数据')

# 新建一个空列表，用于存储表格数据
fileList = []
# 把文件夹下表格数据放在一个列表里
for fileName in os.walk(os.getcwd()):
    for table in fileName[]:
        path = fileName[] + '\\' + table
        li = pd.read_excel(path)
        fileList.append(li)
# 用concat方法合并表单数据
result = pd.concat(fileList)
# 导出数据
result.to_excel(r'机型汇总数据.xlsx',index=False,sheet_name='汇总')

Sub 合并数据()

    Dim bt As Range, r As Long, c As Long
    r =  '表头行数
    Application.ScreenUpdating = False '关闭屏幕更新
    Dim fileName As String, wb As Workbook, sht As Worksheet, temp As Worksheet, Erow As Long, fn As String, arr As Variant
    ' 遍历全部文件
    fileName = Dir(ThisWorkbook.Path & "\*.xlsx")
    ' 获取文件宽度
    Set temp = GetObject(ThisWorkbook.Path & "\" & fileName).Worksheets()
    c = temp.Range("A1").CurrentRegion.Columns.Count
    '搞定第一行数据
    temp.Range("A1").Resize(, c).Copy Range("A1").Resize(, c)
    ' 循环写入数据
    Do While fileName <> ""
        If fileName <> ThisWorkbook.Name Then '判断文件是否为本工作簿
            Erow = Range("A1").CurrentRegion.Rows.Count +  '取得汇总表中第一条空行行号
            fn = ThisWorkbook.Path & "\" & fileName
            Set wb = GetObject(fn) '将fn代表的工作簿对象赋给变量
            Set sht = wb.Worksheets() '汇总的是第1张工作页签
            With sht.Range(sht.Cells(r + , "A"), sht.Cells(, "B").End(xlUp).Offset(, c))
                Cells(Erow, "A").Resize(.Rows.Count, .Columns.Count) = .Value '复制数据
                End With
            wb.Close False
        End If
        fileName = Dir '用Dir函数取得其它文件名，并赋给变量
    Loop
    Application.ScreenUpdating = True '开启屏幕更新
    Worksheets().Name = "汇总"
End Sub

import pandas as pd
# 选定目标文件所在文件夹
path = 'F:\微信公众号\表格合并与拆分'
# 读取目标文件
df = pd.read_excel(f'{path}\汇总数据表.xlsx')
# 按照品牌进行分组
grouped = df.groupby(by='品牌')
# 输出分组数据导出成单表
for i, data in grouped:
    data.to_excel(f'{path}\\{i}.xlsx',index = False,sheet_name = i)

Sub 表格拆分()
    '屏幕刷新=false
    Application.ScreenUpdating = False
    Dim LastRow, LastCol As Long
    Dim Sh, Sht As Worksheet
    'Sh指代当前活动页
    Set Sh = ActiveSheet
    '当前活动页的最后一行
    LastRow = Sh.Cells(Rows.Count, ).End(xlUp).Row
    '当前活动页的最后一列
    LastCol = Sh.Cells(, Columns.Count).End(xlToLeft).Column
    '定义D为字典
    Dim D As Object
    Set D = CreateObject("Scripting.Dictionary")
    Dim Col As Integer
    'Col为要手动输入要拆分的列序数
    Col = InputBox("输入用于分组的列序号！")
    '从第2行找到最后一行
    For i =  To LastRow
        '查找这个要拆分行，看它在不在字典里
        TempStr = CStr(Sh.Cells(i, Col))
        '如果在字典里
        If D.exists(TempStr) Then
            '将数据放到对应的页里
            Set Sht = Worksheets(TempStr)
            '字典key值对应的项目值记录该页当前内容添加的行数，每次+1
            D(TempStr) = D(TempStr) + 
            '下面一行可以注释掉了跟下面的重复了……
            'Sht.Cells(D(TempStr), 1) = Sh.Cells(i, 1)
            For j =  To LastCol
                Sht.Cells(D(TempStr), j) = Sh.Cells(i, j)
            Next
        Else
            '如果不在字典里，就添加一个新key
            D.Add TempStr, 
            'i = i - 1是让该行一会儿重新检索一遍就能进到if里了
            i = i - 
            '在最后一页新加一页，页名就是TempStr
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = TempStr
            '下面一行也是可以注释掉的
            'Sheets(Sheets.Count).Cells(1, 1) = Sh.Cells(1, 1)
            '把第一行标题行弄过去
            For j =  To LastCol
                Sheets(Sheets.Count).Cells(, j) = Sh.Cells(, j)
            Next
        End If
    Next
    '激活初始页，视觉上保持不变
    Sh.Activate
    'RT,GDCDSZ
    MsgBox ("完成！")

End Sub