|
发表于 2017-6-16 12:47
|
显示全部楼层
本楼为最佳答案
加一句代码就好
- Sub aaa()
-
- Dim xm() As String, arr() As String, Temp() As String '声明变量
- Dim s%, r% '声明单值变量
- ReDim arr(1 To 1)
- xm = Split(Range("a1"), ",") '用A1单元格的数据创建数组
- r = 0 '初值
- s = UBound(xm) '最大下标
- For i = 0 To s '循环
- Temp = Filter(arr, xm(i)) '搜索数组
-
- If UBound(Temp) = -1 Then '如果未找到
-
- r = r + 1 '序号,自增1
-
- ReDim Preserve arr(1 To r) '定义动态数组大小
-
- arr(r) = xm(i) '把姓名复制到数组Arr()中。
-
- End If
-
- Next
-
- Range("a2") = Join(arr, ",")
- End Sub
复制代码 |
评分
-
查看全部评分
|