用VBA两种方法把A1单元格相同姓名只保留一个

laoau123

用VBA两种方法把A1单元格相同姓名只保留一个

gufengaoyue

不知道你要的数组是不是这样的。

1. Sub 数组()
   
2. Dim arr, S$
   
3. arr = Split([a1], ",")
   
4. For a = 0 To UBound(arr)
   
5.     If InStr(S, "," & arr(a)) = 0 Then S = S & "," & arr(a)
   
6. Next
   
7. [a3] = Mid(S, 2)
   
8. End Sub

复制代码

1. 
   
2. Sub 字典()
   
3. Dim Dic, arr
   
4. Set Dic = CreateObject("scripting.dictionary")
   
5. arr = Split([a1], ",")
   
6. For a = 0 To UBound(arr)
   
7.     Dic(arr(a)) = a
   
8. Next
   
9. [a4] = Join(Dic.keys(), ",")
   
10. End Sub

复制代码

laoau123

gufengaoyue 发表于 2016-8-16 10:57
不知道你要的数组是不是这样的。

果然高手，数组方法如果不用instr函数，还可以怎样写