應(yīng)用場景

對數(shù)據(jù)列刪除重復(fù)值

知識要點

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

2：Range.AdvancedFilter 方法,，基于條件區(qū)域從列表中篩選或復(fù)制數(shù)據(jù)

3：Intersect()返回一個 Range 對象,，該對象表示兩個或多個區(qū)域重疊的矩形區(qū)域,。

4：Range.RemoveDuplicates 方法,從值區(qū)域中刪除重復(fù)的值,。

Sub 清除重復(fù)值()

    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