关于VBA 高级筛选自动更新

南充何松涛

有一个员工考核的总表。有岗位对应的人员姓名（如摄影师--刀刀），同时摄影师岗位有对应的14项考核项目。合格就是√不合格就是×（由人工检查后收手动输入。）现在想从总表中，筛选摄影师姓名刀刀，然后把该摄影师对应的所有考核项目数据同步筛选出来，并显示在刀刀个人专属的工作表中。
总表每天有新增数据，。

南充何松涛

我是新人 要怎样才能给帮忙的老师鲜花呢  但真的很需要大家的帮助

feilanga

1. Sub 员工考核明细导出到分表()
   
2.     arr = Sheet1.UsedRange
   
3.     Dim dic As Object
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     For i = 4 To UBound(arr)
   
6.         If arr(i, 4) <> Empty Then
   
7.             Key = arr(i, 4)
   
8.             If Not dic.Exists(Key) Then
   
9.                 dic(Key) = i
   
10.             Else
    
11.                 dic(Key) = dic(Key) & "," & i
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     Application.DisplayAlerts = False   '不显示警告框
    
16.     Dim sht As Worksheet
    
17.     For Each sht In Worksheets
    
18.         If sht.Name <> "总表" Then
    
19.             sht.Delete
    
20.         End If
    
21.     Next
    
22.     Application.DisplayAlerts = True    '恢复显示警告框
    
23.     keys = dic.keys
    
24.     items = dic.items
    
25.     Dim sh As Worksheet
    
26.     For i = 0 To dic.Count - 1
    
27.         Set sh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    
28.         sh.Name = keys(i)
    
29.         Sheet1.Range("B3:D3,G3:T3").Copy sh.Range("A1")
    
30.         temp = Split(items(i), ",")
    
31.         ReDim brr(1 To UBound(arr), 1 To 17)
    
32.         For m = 0 To UBound(temp)
    
33.             k = k + 1
    
34.             行号 = temp(m)
    
35.             For j = 7 To 20
    
36.                 brr(k, 1) = arr(行号, 2)
    
37.                 brr(k, 2) = arr(行号, 3)
    
38.                 brr(k, 3) = arr(行号, 4)
    
39.                 brr(k, j - 3) = arr(行号, j)
    
40.             Next
    
41.             sh.Range("A2").Resize(k, 17) = brr
    
42.             sh.Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous '加边框
    
43.         Next
    
44.         k = 0
    
45.         j = 0
    
46.     Next
    
47. End Sub
    

复制代码

吴虾咪

feilanga 发表于 2022-12-15 20:13

能弄一个空白 像这样快速建表吗

洋务德雷

试试这个能用不？喜欢送个花啊。

gwjkkkkk

参与一下。。。

feilanga

吴虾咪 发表于 2022-12-15 21:39
能弄一个空白 像这样快速建表吗

可以，一个道理

南充何松涛

feilanga 发表于 2022-12-15 20:13

老师您这个才是最优解  真的太神太强大了！
另外  能否再麻烦老师帮帮忙，，，，因为除了摄影师，化妆师和引导师 也有对应的考核项目。化妆师和引导师的对应数据也需要单独提取出来。表格格式和摄影师的一样，如：日期+客户姓名+化妆师+化妆师的考核项目

南充何松涛

洋务德雷 发表于 2022-12-15 22:37
试试这个能用不？喜欢送个花啊。

谢谢老师愿意帮忙，但是我刚才下载下来点击执行后报错了。
3楼的老师帮忙做的能够完美解决我的问题，现在只求3楼老师能帮我再完善一下

南充何松涛

gwjkkkkk 发表于 2022-12-15 23:17
参与一下。。。

谢谢老师愿意帮忙  三楼的老师帮忙做的可以完美的解决我的需求，现在只求三楼的老师能帮帮忙完善一下