高级筛选不重复数据至指定表 宏 复制表1到表2 数据不重复的宏

高级筛选不重复数据至指定表 宏 复制表1到表2 数据不重复的宏

表1

高级筛选不重复数据至指定表 宏 复制表1到表2 数据不重复的宏

表二

Sub 高级筛选()

Sheets("Sheet1").Columns("A:b").AdvancedFilter Action:=xlFilterCopy, _

CopyToRange:=Range("A1:b1"), Unique:=False

End Sub


分享到:


相關文章: