1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码,然后运行Sub 返回不重复值() Range("b2:b13").Copy Range("D2") '复制数据 Application.CutCopyMode=False '关闭粘贴模式 ActiveSheet.Range("D2:D13").RemoveDuplicates Columns:=1,Header:=xlNo '返回不重复值End Sub

5、用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,在D列将列出B列数据的不重复值
