vba去除重复项

vba去除重复项，可以考虑使用字典

Sub 按钮1_Click()

Set d = CreateObject("scripting.dictionary")

Set Rng = Nothing

arr = [a1].CurrentRegion

Application.ScreenUpdating = False

For j = 1 To UBound(arr)

If d.exists(arr(j, 1)) Then

If Rng Is Nothing Then

Set Rng = Cells(j, 1)

Else

Set Rng = Union(Rng, Cells(j, 1))

End If

Else

d(arr(j, 1)) = ""

End If

Next j

If Not Rng Is Nothing Then Rng.EntireRow.Delete

Application.ScreenUpdating = True

End Sub

代码运行前的数据

代码运行后，仅仅保留不重复项目

度友，你好，如图，公式：=MID(SUM(MID(A1&1/17,SMALL(FIND(ROW($1:$10)-1,A1&1/17),ROW($1:$10)),1)/10^ROW($1:$10)),3,COUNT(FIND(ROW($1:$10)-1,A1)))

如果是2016版本的，支持TEXTJOIN的话，公式：=TEXTJOIN("",1,IF(ISNUMBER(FIND(ROW($1:$10)-1,A1)),ROW($1:$10)-1,""))

数组公式，需要shift+ctrl+enter三键结束

---