|
本帖最后由 laoau138 于 2017-4-11 16:31 编辑
用VBA去除A列重复做2种
- Sub aaa()
- Dim arr, brr, i&, r&
- arr = Range("a1:a" & [a65536].End(3).Row)
- r = -1
- ReDim brr(1 To UBound(arr) * 2)
- For i = 1 To UBound(arr)
- If arr(i, 1) <> "" Then
- If UBound(Filter(brr, arr(i, 1), False)) + 1 = UBound(brr) Then
- r = r + 2
- brr(r) = arr(i, 1)
- End If
- End If
- Next i
- [c2].Resize(r) = Application.Transpose(brr)
- End Sub
- Sub bbb()
- Dim arr, brr, i&, r&
- arr = Range("a1:a" & [a65536].End(3).Row)
- ReDim brr(1 To UBound(arr))
- For i = 1 To UBound(arr)
- If arr(i, 1) <> "" Then
- If UBound(Filter(brr, arr(i, 1), False)) + 1 = UBound(brr) Then
- r = r + 1
- brr(r) = arr(i, 1)
- End If
- End If
- Next i
- [d2].Resize(r) = Application.Transpose(brr)
- End Sub
复制代码
|
|