Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

数据透视表40+个常用小技巧,让你一次学会!
查看: 284|回复: 3

[已解决]识别重复行删除重复值

[复制链接]
发表于 2022-11-26 23:43 | 显示全部楼层 |阅读模式
识别重复行删除重复值.rar (8.52 KB, 下载次数: 16)
发表于 2022-11-27 12:27 | 显示全部楼层    本楼为最佳答案   
Sub test()
    Dim arr, dic As Object, i&, str
    arr = Range("A1").CurrentRegion
    Set dic = VBA.CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        str = Replace(arr(i, 2) & arr(i, 3) & arr(i, 6), " ", "")
        If dic.exists(str) Then
            arr(i, 6) = ""
        Else
            dic(str) = ""
        End If
    Next i
    Range("A1").CurrentRegion = arr
End Sub
回复

使用道具 举报

发表于 2022-11-28 09:41 | 显示全部楼层
  1. G2=IF(COUNTIFS($B$2:B2,B2,$C$2:C2,C2,$F$2:F2,F2)=1,F2,"")下拉
复制代码
回复

使用道具 举报

 楼主| 发表于 2022-11-28 21:33 | 显示全部楼层

谢谢。没办法,只能有一个最佳答案。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2023-2-5 18:58 , Processed in 0.446860 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表