先说一个具体的实例：有一个表格sheet1，A列每个营业员的营业情况，因为营业员的记录有重复，现在要不重复提取每个营业员姓名到另一个表sheet1A列那里进行统计。这时就可以自己制定一个宏，今后也可以重复使用。

打开VBA编辑器：点击开发工具——点击Visual Basic，打开VBA编辑器（也可以直接按（ALT+F11）——点击插入——模块，打开宏的模块编辑界面。

制定宏：在宏的模块编辑界面，输入如下不重复提取姓名的VBA代码。

Sub 提取不重复姓名()

Set d = CreateObject(Scripting.Dictionary) 设置字典

arr = Sheets(sheet1).UsedRange() 把表1所有数据设置成一个数组

For i = 2 To UBound(arr) 设置从第2行开始读取

If arr(i, 1) Then d(arr(i, 1)) = 如果第2行开始第一列（A列）数据不为空就用字典法提取

Next i

Sheets(sheet2)..Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys) 选择表2的A2单元并粘贴不重复数据

End Sub

输入完成后点击保存退出

运行宏：打开sheet2表格——点击开发工具——点击宏——选择刚刚设置的宏:提取不重复姓名——点击：执行。这是很快就得到数据。今后就可以充分利用这个宏来实现相同的操作。不用再一步步去反复操作了。

利用控件编辑和运行宏：点击sheet2——点击开发工具——插入——表单控件下的窗体控件按钮——在弹出的指定宏给宏命名时就选择刚刚编辑的宏（提取不重复姓名）——点击确定。如果有什么要修改可以点编辑——把控件的名字改成：提取不重复姓名。这样就可以点击控件就能实现运行宏的功能了。

编辑宏要一步步去调试，完成一步再进行下一步。

也可以通过录制宏后再编辑。如果能帮到你就点一下赞鼓励一下小编吧