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

Posted 2023-04-16

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

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

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

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

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

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

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

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

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

参考技术A 我在网上找到一段代码能实现一个表中分成几个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

怎样隐藏DataTable中的某一列

方法:
在this.GridView1.DataSource =bind() ;
this.GridView1.DataBind();
后面写
for(int i=0;i<GridView1.Rows.Count;i++)

TableCell tc=GridView1.Rows[i].Cells[0]; //定义第一列
tc.Visible=false; //隐藏所有行中的第一列数据

//顺便隐藏列头
GridView1.HeaderRow.Cells[0].Visible = false; 参考技术A $('#example').DataTable( "columnDefs": [ "targets": [ 6 ], //隐藏第六列，从第0列开始 "visible": false ] );这里有所有的api： http://www.datatables.net/本回答被提问者采纳 参考技术B hidden:true