标题:求助 判断两个List内的数值是否有重复
只看楼主
clyfd
Rank: 2
等 级:论坛游民
帖 子:16
专家分:38
注 册:2020-7-11
结帖率:100%
已结贴  问题点数:10 回复次数:2 
求助 判断两个List内的数值是否有重复


请老师帮助解决,如何判断List2中的数据与List1中是否有重复,如果重复,弹出提示并显示重复值,如无重复,弹出提示:无重复
搜索更多相关主题的帖子: 数值 判断 重复 是否 List 
2022-12-15 19:32
mrexcel
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:125
专家分:480
注 册:2022-11-3
得分:10 
这个循环判断即可,如:
程序代码:
Private Sub Command1_Click()
Dim s As String, t As String, i&
s = ",,"
With List1
For i = 0 To .ListCount - 1
s = s & .List(i) & ",,"
Next
End With

With List2
For i = 0 To .ListCount - 1
If InStr(s, ",," & .List(i) & ",,") Then t = t & "," & .List(i)
Next
End With
t = IIf(Len(t) > 1, Mid(t, 2), "无重复")
MsgBox t
End Sub
2022-12-15 20:55
clyfd
Rank: 2
等 级:论坛游民
帖 子:16
专家分:38
注 册:2020-7-11
得分:0 
回复 2楼 mrexcel
老师,您太棒了,谢谢您,完全符合我的想法,感谢
2022-12-15 21:35



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-510961-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016695 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved