有这样一个excel表格，行是交易数据，列中有门店号，要把这表中数据根据不同门店单独筛选拆分一个个独立子文件，再发给相应门店对账，有什么工具可以批量自动操作吗？现在是手工人肉处理，简直浪费生命。

Sub 保留表头拆分数据为若干新工作簿()
Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
c = Application.InputBox("请输入拆分列号", , 3, , , , , 1)
If c = 0 Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
arr = [a1].CurrentRegion
lc = UBound(arr, 2)
Set rng = [a1].Resize(, lc)
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If Not d.Exists(arr(i, c)) Then
Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)
Else
Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
End If
Next
k = d.Keys
t = d.Items
For i = 0 To d.Count - 1
With Workbooks.Add(xlWBATWorksheet)
rng.Copy .Sheets(1).[a1]
t(i).Copy .Sheets(1).[a2]
.SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls"
.Close
End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

简单的话，好像有个叫什么方方的工具盒插件可以拆分

方方格子可以

笨办法就是把表导入数据库，然后查询生成表，这点需求access就可以了。

是有多少个门店？手动筛选或者排下序不是多大的工作量吧

python写个脚本 iOS fly ~

感谢楼上兄弟指点的方法，回去试试。主要就是交易流水是一个大文件，要发给各门店对账。

听上去透视表就可以？