今天抽这位粉丝的问题：
怎样筛选重复项？
数据重复，是常常遇到的事儿。
尤其多张表格合并在一起，经常碰到一模一样的项和值。
还有坑爹的自动化录入，傻机器不帮我过滤，啥都给录进来了，一大堆同样的名字看着头疼。
今天，就来教大家，怎样筛选和删除重复项。
其实，这玩意儿超简单，分别用一个键就能搞定，excel系统本身自带，奈何许多人都发现不了……
筛选重复项
Step 1：
首先，你手头上有一张令人抓狂的表。
不止姓名重复，其他列的性别、部门、职位都是重复的。
Step 2：
菜单栏点击「数据」-「高亮重复项」-「设置高亮显示重复值」。
这个键，就是通过「对重复值标颜色」来筛选重复项。
Step 3：
选择筛选区域，只能选一列。
当其他列数据，跟首列数据相匹配，就只选取首列。
下表里，每个人的姓名及其性别、部门和职位都是相匹配的。
如第一行，赵萌萌是女的，销售部的，高级销售。
所以只筛选首列姓名即可。
区域选完按确定，筛选成功！
被橙色高亮的，就是重复项。
删除重复项
Step 1：
选取你要删除重复项的区域（列）- 菜单栏点击「数据」-「删除重复值」-
Step 2：
点击选择「扩展选定区域」或「当前选定区域」。
扩展选定区域，就是也删除「与重复项相匹配」的其他列。
如果想把性别、部门、职位也删除，
就选择扩展选定区域。
如果只想删除姓名，
就选择当前选定区域。
我选择了「扩展选定区域」。
Step 3：
点击「删除重复项」确定执行。
这一步，系统会先自动帮你把全部列打钩，所以一般直接跳过。
如果你不想删除哪些列，在这一步「去掉勾选」即可。
最后的结果：
「高亮的重复值+相匹配的列」全部被删除。
系统还自动帮你重新排了序。
删除了多少个重复项，结尾就有多少行空格。

——————
听说在知乎看到好文章点个赞，以后在动态就能看到了，很方便，不用担心找不到了。
邀请你花1秒钟点个赞，顺便关注一下【有讲课堂】吧(｀∀´)Ψ
作者：有讲君，有讲课堂每天为你带来最新资讯、职场干货，百万职场人一起共同成长！
公众号：职场充电宝（ ID：zhichangCdb ）。
‎有讲课堂-你的职场教育学习课堂​apps.apple.com

最近需要筛选Excel的数据 看到网上有大神做出来的Demo 但是在mac上需要Xactive环境 在windows上是可以运行的


VBA代码
Sub 如何将一个Excel工作表的数据拆分成多个工作表()
    Dim Arr, Rng As Range, Sht As Worksheet, Dic As Object
    Dim k, t, Str As String, i As Long, lc As Long
    Application.ScreenUpdating = False '关闭屏幕更新
    Arr = Range("A1").CurrentRegion.Value
    lc = UBound(Arr, 2) '求取最后一列的列号
    Set Rng = Rows(1) '标题行
    Set Dic = CreateObject("Scripting.Dictionary") '创建字典
    For i = 2 To UBound(Arr)
        Str = Arr(i, 3) '订单号，关键字
        If Not Dic.Exists(Str) Then '如果字典没有关键字
            Set Dic(Str) = Cells(i, 1).Resize(, lc) '把当前行装入到字典中
        Else '否则(字典中存在关键字)
            Set Dic(Str) = Union(Dic(Str), Cells(i, 1).Resize(, lc)) '把行连合起来
        End If
    Next
    k = Dic.Keys '字典关键字集合
    t = Dic.Items '字典项目集合
    On Error Resume Next
    With Sheets
        For i = 0 To Dic.Count - 1 '循环关键字的个数
            Set Sht = .Item(k(i)) '给变量赋值(工作表名为关键字)
            If Sht Is Nothing Then '该工作表不存在则插入一个空工作表
                .Add(After:=.Item(.Count)).Name = k(i) '新建的工作表将置于所有工作表之后，并命名为关键字
                Set Sht = ActiveSheet '活动工作表给变量
            Else '否则
                Sht.Cells.Clear '清除工作中所有内容和格式
            End If
            Rng.Copy Sht.Range("A1") '把标题写入第一行
            t(i).Copy Sht.Range("A2") '写入其他内容
            Sht.Cells.EntireColumn.AutoFit '自动调整全工作表单元格的列宽
            Set Sht = Nothing '变量处于初始状态
        Next
    End With
    Sheets(1).Activate '第1个工作表处于激活状态
    Application.ScreenUpdating = True '打开屏幕更新
End Sub
其中需要改动的就是第一列就是1 第二列就是2 以此类推
Str = Arr(i, 3) '订单号，关键字


参考文档
http://blog.sina.com.cn/s/blog_43f0c1290101rdyc.html

还是最近的那个项目，最后收尾阶段遇到这样一个问题：

根据表格每一行某几列的数据进行条件筛选后并生成新的一列数据。
像下面这个示例一样👇：


需要根据每一行的“ 生日”，“地址”，“保险”是否有值来生成新的一列字段，比如叫“完整度”字段。
就拿王佳来说，因为他的 “保险”字段是空值，但是“地址”和“生日”有对应的值。那么最后新字段 “完整度”这里就要填入 “比较完整” 四个字。同理，李明的“完整度” 就应该是“很完整”；胡曦就是“不完整”；最后章杰就是“很完整”。
看起来是个比较简单的多列条件筛选问题，熟悉pandas的朋友肯定会说 “直接写一个IF-ELSE的 筛选函数后再在该DataFrame里面用apply应用即可解决。” 貌似是这么回事，掌柜一开始也是这么想的，但是写了后实际运行出现了如下报错：



回看上面的数据发现有两行存在 NaN值的情况，所以出现了如上报错。。。
于是再次借助强大的搜索引擎谷歌后发现了 用np.select方法解决更高效：



于是修改代码如下：



运行后就得到新的一列“完整度”的值：


是不是很方便就解决了多列条件筛选后生成新一列值的问题。
PS: 延伸一下，如果你只想对一列数据进行条件筛选，照样生成新的一列值该怎么处理呢？
还是上面那组数据，比如掌柜这里只根据“保险”这一列是否有“Y”来判断新的一列值，叫“重要性”。有“Y”值就填入“重要”；否则就是“不重要”。

直接上代码：



这里只需要把 np.select()换成 np.where()即可解决！！！还是很方便。
😁希望今天分享的对你后面操作有帮助。
参考资料：

Error: float object has no attribute notnull

Numpy 官方文档

Pandas conditional creation of a series/dataframe column

大一的时候学的VB，大学毕业之后就没用过，没想到时隔多年，工作中又有需求了。
有一个汇总表，要根据其中一列姓名筛选数据并另存为新的表格，表格按对应姓名命名后，需要再分别作为附件发给对应姓名的邮箱。
期间翻书和上网查询，怎么筛选数据，怎么另存为，怎么自动发邮件，先实现简单的需求，筛选一个数据并另存，之后再用变量去赋值进行循环，花了一天半，终于实现所有需求。
后来又增加了新的需求，比如有多个不同的表格，需要筛选的姓名这一列也不在同一个位置，有的在第二列，有的第三列，这样VBA自动筛选的参数列就不能直接填数字，而是必须先判断筛选列是在哪一列才能开始筛选。
新的需求略复杂，多个循环和if判断，中途还因为操作失误把代码删除未保存，心塞了半个多小时，但好在重新振作，理顺了逻辑，耗时三天让代码顺利跑了起来，拆分了四个源数据表，共计七十多个分表。
之后就是怎么根据分表去给不同的收件人发邮件，并且和之前的不一样，这次发件人也不一样，于是想到定制一个筛选，不用的发件人勾选自己发送，然后可以向对应的收件人发送对应的附件和正文。
总体感觉，虽然现在VBA处于各类编程语言末端位置，但作为办公利器，vba的操作简便，网上资源也多，在办公自动化方面还是有很大优势的。以上需求用Python也能实现，但还是vba更方便一些。
工作关系，不方便直接上代码，有时间再用自己的电脑复盘，欢迎找我讨论～