[求教]如何把一张总表根据条件要求分解成若干小表

boxizc · 发表于 2006-4-26 08:44

恩,这样我试了可以的，但是如果我总表里增加部门,那这里不是也要增加了,,我单位加上下属机构一起有40多个,将近500人哦..能不能总表里增加部门,这里也自动增加呢.

蓝色精灵 · 发表于 2006-4-26 08:53

呵呵,为方便起见,我建议你将部门录在本工作薄的另一个表里,再定义一下名称,在H1那个单元格引用这个名称就行了,即在来源里输入 =indirect(你所定义的名称)

boxizc · 发表于 2006-4-26 09:45

精灵,还要请教..不好意思哈

总表里,我在合计行前面插入行增加内容，但是合计的总数就不包括增加行的数据,

如果我在其他行前面增加行和内容,则合计里面就包括增加的内容,这是怎么回事呢.

蓝色精灵 · 发表于 2006-4-26 10:23

bdhbN8JH.rar (15.59 KB, 下载次数: 18) 你在汇总表的空行的前面增加数据就不会出现问题了,这是因为你在汇总行前增加行时,汇总公式的范围没变化

BIN_YANG168 · 发表于 2006-4-26 10:48

双击M5单元格看看。

yjkj999 · 发表于 2006-4-29 18:18

建个宏 vba模块

Sub chaifen()
Dim clm_d As Integer
Dim mycell As Range
Dim Nodupes As New Collection
Dim rngOp As Range
Set ShtOp = ActiveSheet
clm_d = Application.InputBox(prompt:="请选择作为拆分条件的列" _
& Chr(13) & "注意：" & Chr(13) & "1、拆分区域需要有标题行！" & Chr(13) & "2、直接 _输入列号，不要用鼠标选取", Type:=1)
If clm_d = False Then Exit Sub
On Error Resume Next
For Each mycell In ShtOp.Range(Cells(2, clm_d), (ShtOp.Cells(2, clm_d).End(xlDown)))
Nodupes.Add mycell.Value, CStr(mycell.Value)
Next mycell
On Error GoTo 0
'''''''''''''''''''
Set rngOp = Cells.CurrentRegion
For Each Item In Nodupes
rngOp.AutoFilter clm_d, Criteria1:=Item
rngOp.Copy
Sheets.Add after:=ActiveSheet
ActiveSheet.Name = Item
ActiveSheet.Paste
Next Item
rngOp.AutoFilter
ShtOp.Activate
End Sub

kailee · 发表于 2006-5-4 11:03

在本论坛搜一下龙三分表的帖子，一定能解决你的问题！

evazhao · 发表于 2006-5-4 14:22

非常简单，排序就搞定了，各部门自动归类，然后再粘贴到另一张工作表中按部门。

rabbity · 发表于 2006-5-5 08:54

[em09]

wangxua368 · 发表于 2011-2-12 09:32

学习了，真是高手。

		自动登录	找回密码
密码			免费注册

[求教]如何把一张总表根据条件要求分解成若干小表

非常感谢