Sub 唯一值()

　　'取产品的唯一值

　　Dim P1 As Worksheet

　　Set P1 = Worksheets("操作题1")

　　Dim P2 As Worksheet

　　Set P2 = Worksheets("操作题2")

　　'取非空行数

　　Dim N As Integer

　　N = P1.Range("B65536").End(xlUp).Row

　　'取唯一值

　　P1.Range("V1:V" & N).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=P2.Range("A2"), Unique:=True

　　End Sub

　　Range.AdvancedFilter 方法

　　基于条件区域从列表中筛选或复制数据。如果初始选定区域为单个单元格，则使用单元格的当前区域。

　　语法

　　表达式.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)

　　表达式   一个代表 Range 对象的变量。

　　参数

　　名称 必选/可选 数据类型 描述

　　Action 必选 XlFilterAction XlFilterAction 的常量之一，用于指定是否就地复制或筛选列表。

　　CriteriaRange 可选 Variant 条件区域。如果省略该参数，则没有条件限制。

　　CopyToRange 可选 Variant 如果 Action 为 xlFilterCopy，则为复制行的目标区域。否则，忽略该参数。

　　Unique 可选 Variant 如果为 True，则只筛选唯一记录。如果为 False，则筛选符合条件的所有记录。默认值为 False