查找同一单位内同时有姓李姓王的员工

xinlan6

查找同一单位内同时有姓李姓王的员工
1、本表已经按照G列的单位为关键字进行了排序。
2、本表仅是部分数据，实际上数据很多.
3、因工作需要，要在表内找出查找同一单位内同时有姓李、姓王的员工，并将其数据复制到表2。
如有多个姓李、姓王的员工，全部复制；
如果仅有姓李、或仅有姓王的员工，无需复制；
如果姓名仅仅是含有李、王，即不是首字，就不是姓，无需复制。
4、模拟结果详见表2。
请大神帮帮忙，谢谢

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a4:i" & r)
   
9.   End With
   
10.   For i = 1 To UBound(arr)
    
11.     If Not d.exists(arr(i, 7)) Then
    
12.       Set d(arr(i, 7)) = CreateObject("scripting.dictionary")
    
13.     End If
    
14.     xm = Left(arr(i, 3), 1)
    
15.     If xm = "李" Or xm = "王" Then
    
16.       If Not d(arr(i, 7)).exists(xm) Then
    
17.         m = 1
    
18.         ReDim brr(1 To UBound(arr, 2), 1 To m)
    
19.       Else
    
20.         brr = d(arr(i, 7))(xm)
    
21.         m = UBound(brr, 2) + 1
    
22.         ReDim Preserve brr(1 To UBound(arr, 2), 1 To m)
    
23.       End If
    
24.       For j = 1 To UBound(arr, 2)
    
25.         brr(j, m) = arr(i, j)
    
26.       Next
    
27.       d(arr(i, 7))(xm) = brr
    
28.     End If
    
29.   Next
    
30.   With Worksheets("sheet2")
    
31.     .UsedRange.Offset(3, 0).Clear
    
32.     m = 4
    
33.     For Each aa In d.keys
    
34.       If d(aa).Count = 2 Then
    
35.         For Each bb In d(aa).keys
    
36.           brr = d(aa)(bb)
    
37.           ReDim crr(1 To UBound(brr, 2), 1 To UBound(brr))
    
38.           For i = 1 To UBound(brr)
    
39.             For j = 1 To UBound(brr, 2)
    
40.               crr(j, i) = brr(i, j)
    
41.             Next
    
42.           Next
    
43.           .Cells(m, 1).Resize(UBound(crr), UBound(crr, 2)) = crr
    
44.           m = m + UBound(crr)
    
45.         Next
    
46.       End If
    
47.     Next
    
48.   End With
    
49. End Sub
    

复制代码

chxw68

详见附件。

gbgbxgb

。。。。。。。。。。

xinlan6

chxw68 发表于 2020-2-26 10:45
详见附件。

太棒了，谢谢老师！
再请教老师，如果要求是：同一单位内只要员工姓名中既含有李、也有含有王的，就可以。也就是说李、王不作为姓氏，而是作为包含的关键字即可（不要求作为第一个字），其他条件不变，该怎么修改您的代码呢？

我使用了下面语句进行修改
If InStr(arr(i, 3), "李") > 0 Or InStr(arr(i, 3), "王") > 0 Then
或者 If arr(i, 3) Like "*" & "李" & "*" Or arr(i, 3) Like "*" & "王" & "*" Then
提取的数据不齐全，反而少了

麻烦老师再看看，谢谢！

chxw68

xinlan6 发表于 2020-2-26 13:11
太棒了，谢谢老师！
再请教老师，如果要求是：同一单位内只要员工姓名中既含有李、也有含有王的，就可以 ...

你是为了工作还是为了学习？如果是中间包含“王”或“李“的就要换一种思路，最好是使用正则表达式。如果一个人的名字是”张李王“，这个怎么算呢？

xinlan6

chxw68 发表于 2020-2-26 13:43
你是为了工作还是为了学习？如果是中间包含“王”或“李“的就要换一种思路，最好是使用正则表达式。如果 ...

谢谢老师！
举例提问，是为了工作。提高效率。
有了代码，再发问，是为了学习。扩展思维，便于工作中碰到类似的问题再发问。
如果方便，请老师帮忙再看看，谢谢！
如果一个人的名字是”张李王“，那就算1个人，至于算“李”还是“王”，均可，只能算一个
如果”张李王“，算“李”，那么同一单位必须还有一个含有“王”，才可以复制到表2
如果”张李王“，算“王”，那么同一单位必须还有一个含有“李”，才可以复制到表2

gbgbxgb

xinlan6 发表于 2020-2-26 15:05
谢谢老师！
举例提问，是为了工作。提高效率。
有了代码，再发问，是为了学习。扩展思维，便于工作中碰 ...

。。。。。。。。。。。。。。。。。。。。。。。
查找同一单位内同时有姓李姓王的员工.rar (23.35 KB, 下载次数: 10)

2020-2-26 18:20 上传

点击文件名下载附件

YZC51

xinlan6 发表于 2020-2-26 13:11
太棒了，谢谢老师！
再请教老师，如果要求是：同一单位内只要员工姓名中既含有李、也有含有王的，就可以 ...

试试
    If InStr("|" & arr(i, 3), "|李") > 0 Or InStr("|" & arr(i, 3), "|王") > 0 Then

xinlan6

gbgbxgb 发表于 2020-2-26 18:20
。。。。。。。。。。。。。。。。。。。。。。。

谢谢老师！真是太厉害了！慢慢学习消化。
再请教一下，代码中使用到 "♂"，这是有什么特殊的作用吗？
还是说仅仅为了减少可能的重复，用了生僻的符号？