Eexcel vba关于删除重复项 1•Sheet1的D8:K25与sheet2的M25:V49对比重项，如果有

Game234问答中心有网友提出了一个比较有代表性的问题【Eexcel vba关于删除重复项 1•Sheet1的D8:K25与sheet2的M25:V49对比重项，如果有】，小编觉得可能对其他网友也有帮助，所以将此问答整理出来了,希望对您有帮助。

小编为您搜罗的答案:

Sub s()
    Dim rng As Range, d As Object
    Set d = CreateObject("scripting.dictionary")
    For Each rng In Sheet2.Range("m25:v49")
        If rng <> "" Then
            d(rng.Text) = ""
        End If
    Next
    If d.Count = 0 Then
        Sheet1.Range("d8:k25").ClearContents
    Else
        For Each rng In Sheet1.Range("d8:k25")
            If d.exists(rng.Text) Then
                rng.ClearContents
            End If
        Next
    End If
End Sub

小编为您搜罗的答案:

做一个简单的比较就能实现了，没有用数组，只用了for循环

你要实现的功能比较简单，所以代码也不多，运行速度也没什么区别

下面给你代码，你放模块里运行就可以了。

Sub 对比去重()
    Dim rng1 As Range, rng2 As Range, i
        i = 0
        For Each rng2 In Sheet2.Range("m25:v49")
            If rng2 = "" Then
                i = i + 0
                ElseIf rng2 <> "" Then
                i = i + 1
            End If
        Next
            If i = 0 Then
                Sheet1.Range("d8:k25").ClearContents
                MsgBox "nothing"
                Else
                For Each rng2 In Sheet2.Range("m25:v49")
                    For Each rng1 In Sheet1.Range("d8:k25")
                        If rng1.Value = rng2.Value Then
                            rng1.ClearContents
                        End If
                    Next rng1
                Next rng2
                
            End If
End Sub

希望以上答案对您您所帮助，另外此问题所属游戏为：删除，游戏库地址：//www.91hq.net/tvgame/12307/。

可能您对者【删除】游戏还不是很了解，小编在此为您简短的介绍一下吧。【删除】简介如下：

　　Delete是一款极简风格益智游戏，灵感来源于平面扫雷，它继承了原作的所有优秀特征，并增加了空间维度

　　你的目标是翻开所有的方块，数字表示它相邻的周围有多少未知的红色方块，你需要做的就是根据数字提示推理出所有的答案

　　游戏中没有时间、星级限制， 意图是让你享受轻松体验

　　与我过去的作品一样，它会不断的引入新的玩法，难度会循序渐进的递增

50个形状各异的关卡设计
7种不同的玩法与组合
所有的谜题都可以推理得出答案
简洁纯粹的艺术风格与游戏方式
完全无语言界面与内容

小提示：长按数字可以高亮它周围所有相邻的面，这将会极大的帮助你思考问题

小编还为您推荐了几篇与【删除】相关的文章：

世界第一youtube游戏主播PewDiePie将删除自频道转学功夫

瑞典籍的youtube作者PewDiePie，专注于Let& 39;s Play的恐怖游戏与动作游戏。他的频道是YouTube中，崛起速度最快的频道之一，在2013年，他

Steam删除自家主机导航栏 G胖直言是因为你们都不买

Steam在昨天被网友发现，过去位于商店首页的Steam主机导航栏不见了。而随后V社官方就发布了公告并做出了解释。简单来说，删除导航栏的原因就是因为玩家们不买账导致。但V社还是承诺，不

DNF明日将删除的9大活动：积分商城、春节活动等下线

原标题：DNF明日将删除的9大活动：积分商城、春节活动等下线DNF将于明日进行更新，删除大量的活动，并上线新的活动内容，新活动请关注我并查看历史消息！即将删除的活

DNF锻造武器机制或将重做：强烈气息材料删除，提升固伤独立加成

原标题：DNF锻造武器机制或将重做：强烈气息材料删除，提升固伤独立加成DNF职业平衡改版消息一放出，引起了国服玩家大面积，对于官方策划的埋怨，下水道角色也控诉了常年

DNF60版本老玩家：至今都舍不得删除的图，哪一张勾起你的回忆？

原标题：DNF60版本老玩家：至今都舍不得删除的图，哪一张勾起你的回忆？在这无尽的岁月中，很多冒险家没有坚持守护赛丽亚到最后，而300万阿拉德勇士的名号究竟是从何时

DNF更新红阵TP将删除？ 鬼泣玩家表示很舒适

原标题：DNF更新红阵TP将删除？鬼泣玩家表示很舒适DNF思密达更新，红阵TP删除，玩家表示损失好几百力智，当然，这样的改动或者在某些玩家眼中并不算什么，不过仔细

DNF韩服改版：TP红阵删除红白王爷受影响 鬼泣预定未来超一线

原标题：DNF韩服改版：TP红阵删除红白王爷受影响鬼泣预定未来超一线DNF韩服改版的脚步并未停歇，这一次来的更凶猛，红阵删除！鬼泣独立攻击系系能全部转向百分比并且

绝地15倍镜或将删除 新地图最高八倍镜

　　在新地图第二次测试公告中，蓝洞表示将删除空投箱的15倍镜掉落，现在获得的最高级别的瞄准镜是8倍镜。可能是因为新地图为4*4，地图范围太小，15倍镜太鸡肋，没有什么太大的作用，才会被删除。　　

这个绝境逢生估计会被系统删除？咋回事

原标题：这个绝境逢生估计会被系统删除？咋回事一周囧图2018/5/2期，本期内容简要：游戏试玩惊现大神修炼终极，一只问号罗王修炼出绝境、就服这个连续得终极修炼丹的，

惨遭删除！DNF中曾经的神级技能，最后一个是玩家噩梦！

原标题：惨遭删除！DNF中曾经的神级技能，最后一个是玩家噩梦！大家好，游戏不倒，我们不散，我是游戏趣无边DNF风风雨雨已经走过10年了，这10年来也从刚开始的几个

相关下载

---