excel中提取不重复值（唯一值）方法大全

1、实例说明：sheet1工作表是每个员工的月销售明细，sheet2要统计每个员工的月销售业绩，把不重复的姓名提取到sheet2的姓名列A列那里。

2、设置代码：接着同时按Alt+F11打开Visual Basic 编辑器——点击插入——模块——在模块1那里输入如下代码：

Sub sjbj()

Set d = CreateObject("Scripting.Dictionary")

arr = Sheets("sheet1").UsedRange()

For i = 3 To UBound(arr)

If arr(i, 2) <> "" Then d(arr(i, 2)) = ""

Next i

Sheets("sheet2").[a3].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)

End Sub

3、添加命令按钮：打开sheet2——点击开发工具——插入——选择表单控件下的按钮（窗体控件），然后画一个矩形就添加控件了——在自动弹出的指定宏那里选择上述步骤编辑的sjbj宏——点击确定。点击控件就自动提取不重复值了。

1、选择sheet1姓名列所有姓名——开始——复制——粘贴到sheet2的姓名列那里。

2、接着选择sheet2的所有粘贴的姓名——数据——删除重复项——设置排序依据——删除重复项——选择列——删除——确定。这样不重复值就提取完成了。