问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

excel vba快速删除重复项

发布网友 发布时间:2022-04-29 20:28

我来回答

1个回答

热心网友 时间:2022-06-22 10:00

Sub xx()
  Set d1 = CreateObject("scripting.dictionary")
  Set d2 = CreateObject("scripting.dictionary")
  With [AF666:AO866]
    .Interior.ColorIndex = xlNone
    For i = 1 To .Count
      d1(.Item(i).Text) = ""
    Next
  End With
  With [A39:J1038]
    For i = 1 To .Count
      If d1.exists(.Item(i).Text) Then
        d2(.Item(i).Text) = ""
        .Item(i).ClearContents
      End If
    Next
  End With
  With [AF666:AO866]
    For i = 1 To .Count
      If d2.exists(.Item(i).Text) Then
        .Item(i).Interior.ColorIndex = 7
      End If
    Next
  End With
End Sub

追问

现在区域1的空单元变为紫色了

先将区域1还原单元为无色,(区域1有部分单元或空单元有颜色,所以先还原为无色)

2。删除区域2相同的(见红色示)

3。区域1相同的填充紫色(见紫色示)

追答Sub xx()
  Set d1 = CreateObject("scripting.dictionary")
  Set d2 = CreateObject("scripting.dictionary")
  With [AF666:AO866]
    .Interior.ColorIndex = xlNone
    For i = 1 To .Count
      If .Item(i) <> "" Then d1(.Item(i).Text) = ""
    Next
  End With
  With [A39:J1038]
    For i = 1 To .Count
      If d1.exists(.Item(i).Text) Then
        d2(.Item(i).Text) = ""
        .Item(i).ClearContents
      End If
    Next
  End With
  With [AF666:AO866]
    For i = 1 To .Count
      If d2.exists(.Item(i).Text) Then
        .Item(i).Interior.ColorIndex = 7
      End If
    Next
  End With
End Sub

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
梦见老婆光脚踩谷子 王者荣耀国服中,不论进入游戏还是没开始游戏,所有玩家发送的任何消息... 我的滴滴开空调活动怎么没了 为什么腾讯视频显示还是要流量看 没有联通中国结标志 电脑不能装win7买电脑时他们说只能装win10系统不能装win7 英雄联盟手游 手机lol游戏盒子现在叫什么? 英雄联盟手机盒子看不了比赛记录 手游英雄联盟视频在哪里看手机英雄联盟盒子在哪看我游戏中录的视频 英雄联盟盒子看视频只有声音没有画面,不是网速的问题,也不是电脑卡,是... 为什么英雄联盟盒子没发看视频 VBA 提取不重复值? EXCEL VBA的代码,去除重复? vba去除重复项 《暗黑2》ACT5能给多少装备打孔? 暗黑破坏神2里面如何给装备打孔 ? 暗黑2装备打孔方法 暗黑破坏神2 怎么打孔啊? 暗黑破坏神2怎么给装备打孔? 暗黑破坏神2里面的注入魔力和凹槽任务 暗黑2装备怎么打孔? 关于暗黑2打孔任务 暗黑破坏神2v1.11装备怎么打孔? 暗黑2装备怎么打孔 暗黑2 1.10 第五幕任务打孔的孔数是否必定为该物品孔数的最大值? 暗黑2给武器打孔 一个多月的小猪浑身发软腿不听使唤,不吃东西,怎么回事呢? 我家的猪腿软站不起来该怎么办?急 猪后腿发软走路好像认走一字步一样是怎么回事? 中猪后腿发软是什么原因? 猪得软换和猪种有关系吗? 怎么通过宏vba代码删除excel中有重复数据的整行 文件夹属性中:只读和存档分别是什么意思?要怎么设置?? VBA去掉重复数据 Excel 如何用vba多列删除重复项 Excel VBA如何删除数组中重复的值? 怎样将一个文件的隐藏和只读属性撤并设置为存档属性 EXCEL VBA删除重复数据 求高手指导 在win7中怎样在DOS窗口中添加只读、存档、隐藏属性? excel vba 删除重复内容 文件属性:只读与存档分别是什么意思,有何区别? 电脑文件的属性里,只读和存档什么意思啊?我感觉没什么不一样,有什么区别呢? vba中如何去除combobox中的重复项 怎么设置文档的只读存档属性 电脑中的属性---存档\只读\隐藏分别是什么意思? Excel 怎样用VBA代码实现自动查找重复行并删除 文件夹 的只读 和存档 求助VBA删除相同项 文件右键属性里面的只读、存档和隐藏这三个各代表什么意思? VBA 多条件去重? 请问文件属性里只读和存档有什么区别?谢谢