Sub SplitTableByRegion()    Dim ws As Worksheet    Dim rng As Range    Dim lastRow As Long, lastCol As Long    Dim regionCol As Long    Dim regionDict As Object    Dim region As Variant    Dim newWb As Workbook    Dim savePath As String    ' 设置基础参数    Set ws = ThisWorkbook.Worksheets("销售明细")    regionCol = 3 ' 区域在第3列    savePath = ThisWorkbook.Path & "\拆分结果\"    ' 如果文件夹不存在则创建    If Dir(savePath, vbDirectory) = "" Then        MkDir savePath    End If    ' 找到数据范围    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column    Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))    ' 用字典收集不重复的区域值    Set regionDict = CreateObject("Scripting.Dictionary")    Dim i As Long    For i = 2 To lastRow        If Not regionDict.Exists(ws.Cells(i, regionCol).Value) Then            regionDict.Add ws.Cells(i, regionCol).Value, 1        End If    Next i    ' 关闭屏幕刷新，提高速度    Application.ScreenUpdating = False    ' 遍历每个区域    For Each region In regionDict.Keys        ' 清除之前的筛选        If ws.AutoFilterMode Then ws.AutoFilterMode = False        ' 设置筛选        rng.AutoFilter Field:=regionCol, Criteria1:=region        ' 复制可见区域        Set newWb = Workbooks.Add        rng.SpecialCells(xlCellTypeVisible).Copy _            Destination:=newWb.Sheets(1).Range("A1")        ' 保存文件        newWb.SaveAs Filename:=savePath & "销售数据_" & region & ".xlsx"        newWb.Close SaveChanges:=False    Next region    ' 清理    ws.AutoFilterMode = False    Application.ScreenUpdating = True    MsgBox "拆分完成！"End Sub

pip install pandas openpyxl

import pandas as pdimport os# 读取总表file_path = r"销售明细表.xlsx"df = pd.read_excel(file_path)# 拆分字段split_column = "区域"# 输出目录output_dir = "拆分结果"os.makedirs(output_dir, exist_ok=True)# 按字段分组并导出for region, group_df in df.groupby(split_column):    output_path = os.path.join(output_dir, f"销售数据_{region}.xlsx")    group_df.to_excel(output_path, index=False)print("拆分完成！")

import pandas as pdimport osfrom pathlib import Pathdef split_excel_by_column(    input_file,    split_column,    output_dir="拆分结果",    filename_prefix="销售数据"):    """    按指定列拆分Excel为多文件    """    # 读取数据    df = pd.read_excel(input_file)    # 校验拆分字段是否存在    if split_column not in df.columns:        raise ValueError(f"列名'{split_column}'不存在于表中")    # 创建输出目录    Path(output_dir).mkdir(parents=True, exist_ok=True)    # 统计信息    total_rows = len(df)    group_count = df[split_column].nunique()    # 分组导出    for name, group in df.groupby(split_column):        # 处理非法文件名字符        safe_name = str(name).replace("/", "_").replace("\\", "_")        output_path = Path(output_dir) / f"{filename_prefix}_{safe_name}.xlsx"        group.to_excel(output_path, index=False)    print(f"✅ 拆分完成：共{total_rows}行，拆分为{group_count}个文件")if __name__ == "__main__":    split_excel_by_column(        input_file="销售明细表.xlsx",        split_column="区域"    )

df["组合键"] = df["区域"] + "_" + df["负责人"]for key, group in df.groupby("组合键"):    group.drop(columns="组合键").to_excel(f"拆分结果/{key}.xlsx", index=False)

# Python示例original_count = len(df)split_counts = sum(len(g) for _, g in df.groupby("区域"))assert original_count == split_counts, "数据行数不一致！"