求助各位老师，如何删掉有重复值的行数据

janpan888

cui26896 发表于 2019-11-13 19:22
想了很多，最后在这个帖http://club.excelhome.net/thread-1053908-1-1.html
中看到川香群子老师的评语， ...

学习消化中，谢谢！

excelvlookup

cui26896 发表于 2019-11-13 19:22
想了很多，最后在这个帖http://club.excelhome.net/thread-1053908-1-1.html
中看到川香群子老师的评语， ...

你被这个贴误导了，就用这个贴26楼的附件，你试试这个
s = Range("a20:a37")
t = Range("b1:b18")
a = Application.Max(t, s)
ReDim br(1 To a)
For i = 1 To UBound(t)
    br(t(i, 1)) = i
Next
For i = 1 To UBound(s)
    If br(s(i, 1)) <> "" And br(s(i, 1)) = i Then
        x = x + 1
    End If
Next
MsgBox x
End Sub

cui26896

https://club.excelhome.net/thread-1053908-1-1.html

香川老师说得很明白，你看看本帖中前面几个人想用字典来做最后都有缺陷就很能说明问题了！！

不知道为什么，这个网址无法连接！！！只有把这个帖的名称给出来供大家查询了。在本论坛中搜索

[求助]

如何判断一个数组包含另一个数组

tptopy

janpan888 发表于 2019-11-13 21:08
感谢！可能是我没说明白，序号14的有个6不在序号1中，所以应该保留序号14。
是从12行开始，依行判断每1 ...

仔细看了你的说明，及模拟结果，发现还是有问题,按你的规则，序号15，16应该保留，但你的模拟结果中没有保留，序号21，23应该删除，但你的模拟结果中却保留了。是你模拟结果有误还是我没能理解规则？

tptopy

试试这个吧，不知我对规则的理解是否正确。

janpan888

tptopy 发表于 2019-11-14 15:24
试试这个吧，不知我对规则的理解是否正确。

感谢老师解答，先学习学习