如何利用党员花名册总表数据自动提取更新到各下级党支部花名册里面？

cwgui98

求助：如何利用党员花名册总表数据自动提取更新到各下级党支部花名册里面？当总表数据增加、删除或修改时，子表（下级单位党支部花名册）数据会自动增加、删除或者修改（以支部名称为依据）。详见附件。恳求各位大师给予帮忙。

附件： 党员花名册.rar (33.27 KB, 下载次数: 112)

2015-6-17 08:28 上传

点击文件名下载附件

borine

函数实现，见附件

cwgui98

borine 发表于 2015-6-17 13:20
函数实现，见附件

大侠：怎么里面子表没有显示，还有总表顺序全部变乱？

borine

cwgui98 发表于 2015-6-17 18:31
大侠：怎么里面子表没有显示，还有总表顺序全部变乱？

为了简单地用公式解决，总表按支部名称排了个序
用了宏表函数，你启用宏就行了

sunya_0529

这个用宏来做很容易实现。

代码如下——

1. Option Explicit
   
2. 
   
3. Sub 生成子表()
   
4. Dim wst As Worksheet, dic As Object, k As Range, arr, i%
   
5. Application.ScreenUpdating = False
   
6. '删除所有子表
   
7. Application.DisplayAlerts = False
   
8. For Each wst In ThisWorkbook.Sheets
   
9.   If wst.Name <> "花名册总表" Then wst.Delete
   
10. Next
    
11. Application.DisplayAlerts = True
    
12. 
    
13. Set dic = CreateObject("Scripting.Dictionary")
    
14. With Sheets("花名册总表")
    
15.   '提取支部列表
    
16.   For Each k In .Range("C5:C" & .[A65536].End(xlUp).Row)
    
17.     If k <> "" And Not dic.Exists(k.Value) Then dic.Add k.Value, ""
    
18.   Next k
    
19.   arr = dic.keys
    
20.   '生成支部各表
    
21.   For i = 0 To dic.Count - 1
    
22.     Set wst = Worksheets.Add(after:=Sheets(Worksheets.Count))
    
23.     wst.Name = arr(i)
    
24.     .[IV1] = "支部名称"
    
25.     .[IV2] = arr(i)
    
26.     .[A5].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.[IV1:IV2], CopyToRange:=wst.Cells(1)
    
27.   Next i
    
28. End With
    
29. 
    
30. Set wst = Nothing
    
31. Set dic = Nothing
    
32. Application.ScreenUpdating = True
    
33. End Sub

复制代码

cwgui98

sunya_0529 发表于 2015-6-18 20:03
这个用宏来做很容易实现。

代码如下——

谢谢！这个宏好用。如果子表能按党支部书记在第一个，其次到其他干部职务，最后到工人这样排就更好一些，还有行列间距如果能生成美观一些更好。

sunya_0529

cwgui98 发表于 2015-6-25 23:06
谢谢！这个宏好用。如果子表能按党支部书记在第一个，其次到其他干部职务，最后到工人这样排就更好一些， ...

排序用sort方法，自动调整列宽用autofit方法。

你可以用录制宏的方式录一遍，看看代码就明白了。

gothicyc

sunya_0529 发表于 2015-6-18 20:03
这个用宏来做很容易实现。

代码如下——

我按照这个宏能建立分部门的表，但是表中数据却一个都没在分表中显示，请问如何让分部门的表内数据与花名册同步

sunya_0529

gothicyc 发表于 2015-7-13 14:55
我按照这个宏能建立分部门的表，但是表中数据却一个都没在分表中显示，请问如何让分部门的表内数据与花名 ...

检查一下看花名册原表是否是数据清单格式。标题行里不能有合并单元格。

bingyu032

borine 发表于 2015-6-18 11:17
为了简单地用公式解决，总表按支部名称排了个序
用了宏表函数，你启用宏就行了

如果在总表中，同一支部的人不连续，在支部名册里也会出现不连续，怎么解决呢？