应用场景

对数据列删除重复值

知识要点

1：Cells(Rows.Count,1).end(xlup) 返回首列的最后一个非空单元格

2：Range.AdvancedFilter 方法，基于条件区域从列表中筛选或复制数据

3：Intersect()返回一个 Range 对象，该对象表示两个或多个区域重叠的矩形区域。

4：Range.RemoveDuplicates 方法,从值区域中删除重复的值。

Sub 清除重复值()

Dim Rng As Range

Set Rng = Range([a1], Cells(Rows.Count, 1).End(xlUp)) '将A列所有已用单元格赋值给变量rng

Intersect(Rng, Rng.Offset(1, 0)).RemoveDuplicates Columns:=1, Header:=xlNo

End Sub