excelvba查重

VBA查找重复值一般使用字典对象，例子代码：set db = createobject("dictionary")arr = range("a1:d10") '需要检查的区域for i=1 to ubound(arr)    for j=1 to ubound(arr,2)        if xists(arr(i,j)) then            msgbox "发现重复值：" & arr(i,j)        else            db(arr(i,j)) = true        end if    next jnext i

Sub x()    n = [b65536]End(3)Row - 10    If n <= 9 Then Exit Sub    For i = n To n + 10        If Cells(i, 2) = [b9] Then Cells(i, 3)IColorIndex = 39    NextEnd Sub

看不懂，截图看看

Private Sub CommandButton1_Click() Dim BmCell As Range If TextBValue = "" Then MsgBox "请输入所要查询的编码" Exit Sub End If With Worksheets("刀具信息") value = "" For Each BmCell In Range("L2:L" & Range("l65536")End(xlUp)Row) If CStr(BmCell) = TextBValue Then '下一行if判断中返回查到相同编码的单元格地址如果有多个单元格地址用","隔开 If Value = "" Then Value = BmCAddress(0, 0) Else Value = Value & "," & BmCAddress(0, 0) End If End If Next End WithEnd Sub