EXCEL删除重复项VBA代码(区域指定)

这个专题主要讲VBA在删除重复项上的精确应用。

我们知道一般可以用筛选等操作可以达到删除重复项的操作，但它只是针对整个文档的表格进行操作，如果我们是想针对表格的某个区域删除重复项，又当如何做呢？

经过多次试验，确实，通过常规的操作几乎实现不了。要知道，一些常规应用实现不了的，就可以采用VBA来进行操作，VBA的代码写好了，经过多次试验，百试百灵，下面这个代码经过多次试验并编写，终于写出来了。可以直接拿来应用了，几乎是万能的啊



Sub a()
Dim Rng As Range, Arr, i As Long, j As Long, T As Boolean
j = 1
ReDim Arr(1 To 1)
T = True
For Each Rng In Selection
If Rng.Value <> "" Then
For i = 1 To j
If Arr(i) = Rng.Value Then
Rng.Value = ""
T = False
Exit For
End If
Next
If T Then
j = j + 1
ReDim Preserve Arr(1 To j)
Arr(j) = Rng.Value
End If
T = True
End If
Next
End Sub



应用条件：选定的区域（文本，数字，空格，特定格式都适用）
应用原理：删除指定区域的重复项，从第一行第一列开始查，以此类推，删除重复项后，只保留一项。保留第一次出来的值，之后的全部删除掉。

大家可以拿来应用试下，非常好用。希望可以帮到大家！谢谢