Question

Excel根据某一列数据，自动分成多张表格

如图，想按照D列经理，分成不同的表格，每个经理一张单独表格（不是工作簿），表格格式不变，例如图2的形式。求会vba的大神帮助。





Answer 1

1、首先打开Excel表格，选中A2:C8单元格区域，然后点击下图选项。

2、然后点击【合并转换】，选择【合并其他列】。

3、点击【按相同数值】，设置【要合并的列】为D列，然后勾选【用，连接】，最后点击【确定】。

4、点击【随机重复】，选择【删除重复值】。

5、点击【整行对比】，然后点击【确定】。

6、点击【批量删除】，选择【删除空行/列】。

7、点击【删除空行】，然后点击【确定】，点击【是】即可完成。

8、最后完成效果如下图。

Answer 2

我在网上找到一段代码能实现一个表中分成几个sheet表，请问怎样能分解成单独几个excel工作簿。
代码：
Sub test()
With ActiveSheet
r = 2 '数据从第2行开始
t = .Cells(r, 3).Value '获取第r行第3列的值即第一个班级名称
Do Until t = "" '循环直到获得的单元格内容为空
n =Application.WorksheetFunction.CountIf(.Range("c:c"), .Cells(r, 3)) '计算C列第r行第3列单元格的个数
Sheets.Add '插入一个新的工作表
.Range("a1:d1").Copy Range("a1")'将表头复制到新表
.Cells(r, 1).Resize(n, 4).CopyRange("a2") '从第r行第1列开始向右向下扩展n行4列复制到新表的a2
r = r + n '获取下一个班级所在行号
t = .Cells(r, 3).Value '第2句注释
Loop
End With
End Sub