怎么提取B3列至H列中姓名，如果重复，只提取一次。

z865593849

1. Sub a()
   
2. arr = [a1].CurrentRegion
   
3. Set d = CreateObject("Scripting.dictionary")
   
4. For i = 3 To UBound(arr)
   
5.     For j = 2 To UBound(arr, 2) - 1 '最后一列写结果
   
6.         brr = Split(arr(i, j), "、")
   
7.         For Each k In brr
   
8.             d(k) = ""
   
9.         Next
   
10.     Next j
    
11.     结果 = ""
    
12.     For Each k In d.keys
    
13.         结果 = k & "、" & 结果
    
14.     Next
    
15.     结果 = Left(结果, Len(结果) - 1)
    
16.     arr(i, UBound(arr, 2)) = 结果
    
17.     d.RemoveAll
    
18. Next i
    
19. [a1].CurrentRegion = arr
    
20. End Sub
    
21. 
    

复制代码

sxbjzjf110

参与一下。。。。。

1042271867

今天小花不够了，谢谢各位，明天给花

今铭昔

ph378

学习了学习再学习

mjm04

参与下
I3单元格：
=TEXTJOIN("、",,UNIQUE(TEXTSPLIT(ARRAYTOTEXT(B3:H3),,{",","、"})))
下拉

================================================
WPS-正则写法
=TEXTJOIN("、",,UNIQUE(REGEXP(ARRAYTOTEXT(B3:H3),"[^、,]+"),1))
或
=TEXTJOIN("、",,UNIQUE(REGEXP(ARRAYTOTEXT(B3:H3),"[一-龢]+"),1))
下拉

我的城市你来过

张小生

1. Sub test1()
   
2. Dim str$, x%, y%, n%, ar, d, br
   
3. Set d = CreateObject("scripting.dictionary") '创建字典
   
4. For x = 3 To 5
   
5.     For y = 2 To 8
   
6.         str = str & "、" & Cells(x, y) '把所有名字连接成字符串
   
7.     Next y
   
8.     ar = Split(Right(str, Len(str) - 1), "、") '再把连接后的字符串以顿号为标记拆分成为数组
   
9.     For n = 0 To UBound(ar)
   
10.         d(ar(n)) = ""    '把数组装入字典去重复
    
11.     Next n
    
12.     br = d.keys   '把字典的键值赋给数组
    
13.     Cells(x, 10) = Join(br, "、") '把数组内的名字用顿号连接后写入目标单元格
    
14.     Cells(x, 10).WrapText = True '把目标单元格设置成自动换行
    
15.     str = "": Erase br: Erase ar: d.RemoveAll '清空内层循环内所有变量
    
16. Next x
    
17. End Sub

复制代码

lyfegf