从一个sheet页里筛选不重复的数据 放到另一个sheet页里，VBA如何实现？

[lyshrine]

如图1，sheet1中根据品名，规格，单位能唯一确定一条记录，从数据中筛选，把不重复的放到sheet2中，如图2

[X-i-n]

选中BCD三列，复制，粘贴到新SHEET，然后"数据"->"删除重复项" VBA没什么好写的，录制宏，然后直接操作一遍就自动帮你写好了。

[无·法]

和文件排除重复行一样，先用个变量保存起来。 你这个是多了，那么多了就当做一行好了。 vba中也一样的for循环，取值用Range("B5")这样子。哪些代码不知道怎么写 随便录制个宏就明白了。 如果要人代工可以淘宝上找人做，这类小工具大把的人接

[赵4老师]

在Excel中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

[独梦尘烟]

代码如下：

Public Sub RemoveDup()
    Dim myranges As Range, nrow As Long
    Set myranges = Worksheets("sheet1").UsedRange
    With Worksheets("sheet2")
        myranges.Copy _
        Destination:=.Range("a1")
        nrow = .Range("a65532").End(xlUp).Row
        .Range(.Cells(1, "a"), .Cells(nrow, "D")).RemoveDuplicates Columns:=Array(2, 3, 4), Header:=xlYes
    End With
End Sub