excel一个表格分成多表格的方法
可能需要在 Excel 中将一个表格分成多个表格。一个表应该如何分成多个表?下面是在Excel中将一个表划分为多个表的方法。希望阅读后能给你一些想法。启发!
如何在excel中将一个表格分成多个表格
一张表分成多张表第一步:原始数据表如下(名称:数据源)方法方法,需要根据B列人名拆分成每个人的工作表。
excel中将一个表分成多个表的方法图1
一张表分成多张表 第二步:点击【开发工具】-【基础】或快捷键Alt+F11,进入VBE编辑界面。
excel中将一个表分成多个表的方法图2
一张表分成多张表 第三步:插入一个新模块,如下图。
excel中将一个表分成多个表的方法图3
excel中将一个表分成多个表的方法图4
一张表分成多张表 第四步:如下图,在模块中粘贴如下代码:
子CFGZB()
暗淡为
暗淡
调暗为范围
暗淡的标题为
暗淡为
= .(:="请选择标题行:", Type:=8)
= .()
set = .(:="请选择拆分的表头,必须是第一行和一个单元格,如:"Name"", Type:=8)
标题 = .Value
= 。
. = 假
. = 假
Dim i&, Myr&, Arr, num&
暗 d, k
For i = .Count To 1 Step -1
If (i).Name "Data " Then
(一世)。
万一
接下来我
设置 d = (".")
Myr = ("数据源")..Rows.Count
Arr = ("数据源").Range(Cells(2, ), Cells(Myr, ))
对于 i = 1 至 (Arr)
d(Arr(i, 1)) = ""
下一个
k = d.keys
对于 i = 0 至 (k)
设置 conn = ("adodb.")
conn.Open "=.jet.oledb.4.0; =excel 8.0;data =" & .
Sql = " * from [$] where " & title & " = '" & k(i) & "'"
.添加后:=(.Count)
和
.Name = k(i)
对于 num = 1 到 ()
.Cells(1, num) = (num, 1)
下一个号码
.Range("A2").conn.(Sql)
结束于
(1).
(1).细胞。
。复制
(。数数)。
。细胞。
. 粘贴:=,:=,_
:=假,:=假
. = 假
接下来我
连接关闭
设置 conn =
. = 真
. = 真
结束子
excel中将一个表分成多个表的方法图5
一张表分成多张表 第五步:如下图,插入一个控制按钮,将宏分配给刚插入的模块代码。
excel中将一个表分成多个表的方法图6
excel中将一个表分成多个表的方法图7
一张表分成多张表 第六步:点击插入按钮控件,根据提示选择要拆分的表头行和列字段,本例中选择“名称”字段进行拆分,当然你也可以还要选择C列的“名称”进行拆分,看实际需求。
excel中将一个表分成多个表的方法图8
excel中将一个表分成多个表的方法图9
excel中将一个表分成多个表的方法图10
excel中将一个表分成多个表的方法图11
一张表分成多张表 第七步:代码运行后,工作簿后面会有很多工作表,每个工作表都是一个人的数据。具体如下图所示:
excel中将一个表分成多个表的方法图12
看完excel中把一个表分成多个表的方法,我也看了:
1.如何在 Excel 工作簿中拆分多个工作表
2.如何在一个excel工作簿中拆分多个工作表
3.如何在 Excel 工作簿中拆分多个工作表
4. 如何在工作簿中拆分多个工作表
5.Excel多表汇总教程
6.如何快速将多张excel表格合并为一张excel表格
7.如何在 Excel 中一次打开多个工作簿
如何在excel中将一个表格分成多个表格
可能需要在 Excel 中将一个表格分成多个表格。一个表应该如何分成多个表?下面是在Excel中将一个表划分为多个表的方法。希望阅读后能给你一些想法。启发!excel中如何将一个表拆分为多个表第一步:原始数据表如下(名称为:
推荐:
点击下载文档 文档为doc格式