ExcelVBA使用删除重复项获取不重复记录
关注微信公众号:VBA168
每天更新Excel VBA经典代码,祝你工作和学习更轻松!
利用单元格区域的RemoveDuplicates方法可以去除重复值,从而获取不重复值列表,如下图所示。
示例代码如下。
Sub RemoveDuplicates()
Range("A1").CurrentRegion.Copy Range("E1")
Range("E1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes'获取第1列不重复对应的所有记录,区域包括标题行
End Sub
RemoveDuplicates方法语法格式如下。
RemoveDuplicates(Columns, Header)
参数Columns是必需的,指定包含重复信息的列的索引数组。当有多列时,可以使用Array(1,2)的形式表示。
参数Header是可选的,指定第一行是否包含标题信息。默认值为xlNo;如果希望Excel自动判定,则应指定为XlGuess。