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

如图,想按照D列经理,分成不同的表格,每个经理一张单独表格(不是工作簿),表格格式不变,例如图2的形式。求会vba的大神帮助。... 如图,想按照D列经理,分成不同的表格,每个经理一张单独表格(不是工作簿),表格格式不变,例如图2的形式。求会vba的大神帮助。 展开
 我来答
电子数码小百科NW
2020-02-17 · TA获得超过6492个赞
知道答主
回答量:15
采纳率:0%
帮助的人:3936
展开全部

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

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

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

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

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

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

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

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

深圳市励拓软件有限公司
2016-12-21 · 互联网+时代高效组织信息化平台
深圳市励拓软件有限公司
汇讯WiseUC企业即时通讯软件是一款以组织内沟通交流为基础,即时通讯为核心,融合办公协同、IT系统集成,帮助企业降低运营成本、提升组织效率的企业级沟通协同平台。
向TA提问
展开全部
我在网上找到一段代码能实现一个表中分成几个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
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式