excel怎么将一张工作表拆分成多个工作表格 _excel

案例：如图所示，数据需要按照销售地分成多个不同的sheet表。

【excel怎么将一张工作表拆分成多个工作表格】方法1：数据透视表拆分法
Step1：单击数据区域任一单元格——【插入】——【数据透视表】，单击确定

Step2：因为是按【销售地】分成多个不同的表，所以把【销售地】字段拖到筛选区域；其他字段统一拖到行区域。

Step3：调整透视表区域的布局为常见表格样式。
① 单击【报表布局】——【以表格形式显示】；
② 单击【报表布局】——【重复所有标签】；
③ 单击【分类汇总】——【不显示分类汇总】

Step4：拆分工作簿为多个工作表。经过了前期的准备，单击数据区域任一单元格——【分析】——【选项】——【显示报表筛选页】，单击确定。
可以发现多出了很多sheet表，而且表格是以“销售地”命名的，兼职太方便了耶，工作表都不需要创新命名了。

方法2： VBA方法
① 按下【Alt+F11】打开VBA窗口

② 插入模块，输入代码

Sub 拆分工作簿为多个sheet()
Set d = CreateObject("scripting.dictionary")
With Worksheets(1)
rrow = .Cells(Rows.Count, "a").End(3).Row
For i = 2 To rrow '从第2行开始拆分
strr = .Range("B" & i).Value '拆分B列内容
If Not d.exists(strr) Then
d.Add strr, .Range("a" & i).Resize(1, 6)
Else
Set d.Item(strr) = Union(d.Item(strr), .Range("a" & i).Resize(1, 6))
End If
Next
k = d.keys
i = d.items
For a = 0 To d.Count - 1
Worksheets.Add.Name = k(a)
i(a).Copy Worksheets(k(a)).Range("a2")
Next
End With
End Sub