应用场景 对数据列删除重复值 知识要点 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 |
|
来自: L罗乐 > 《VBA基础入门教程》