查重的问题

nsqrlj

想实现重复比对查找，并用ColorIndex值随机填充颜色

单列查重可以实现，两表多列查重也可以实现，但单表多列查重卡住了，求助。

liulang0808

建议楼主结合附件，举例说明下需求
目前的附件没有代码，没有多表，不知道要做什么

nsqrlj

liulang0808 发表于 2018-6-7 09:45
建议楼主结合附件，举例说明下需求
目前的附件没有代码，没有多表，不知道要做什么

谢谢liulang0808版主，附件是一个简化了内容的，主要是想在sheet1表中的A、B列中比对、查找A、B列都重复的内容，并用颜色标识。如：A2、B2就和A5、B5完全相同，然后标识颜色，同样，A3、B3就和A7、B7完全相同，A4、B4就和A6、B6完全相同
For j = 3 To 5
    Cells(i, 1).Resize(, 1).Interior.ColorIndex = j
Next

nsqrlj

liulang0808 发表于 2018-6-7 09:45
建议楼主结合附件，举例说明下需求
目前的附件没有代码，没有多表，不知道要做什么

多表、单表中单列查重和多表多列、单列查重都可以实现。就业单表多列如何查重绕注了，又着急用，故求助。

nsqrlj

liulang0808 发表于 2018-6-7 09:45
建议楼主结合附件，举例说明下需求
目前的附件没有代码，没有多表，不知道要做什么

前面的回复还在审核中

nsqrlj

liulang0808 发表于 2018-6-7 09:45
建议楼主结合附件，举例说明下需求
目前的附件没有代码，没有多表，不知道要做什么

For i = 1 To 10
    For j = 3 To 6
        If **** Then Cells(i, 1).Resize(, 1).Interior.ColorIndex = j
    Next
    Next

liulang0808

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     arr = [a1].CurrentRegion
   
5.     For j = 2 To UBound(arr)
   
6.         If d.exists(arr(j, 1) & arr(j, 2)) Then
   
7.             Set d(arr(j, 1) & arr(j, 2)) = Union(d(arr(j, 1) & arr(j, 2)), Cells(j, 1).Resize(1, 2))
   
8.         Else
   
9.             Set d(arr(j, 1) & arr(j, 2)) = Cells(j, 1).Resize(1, 2)
   
10.         End If
    
11.     Next j
    
12.     For j = 0 To d.Count - 1
    
13.         d.items()(j).Interior.ColorIndex = j + 2
    
14.     Next j
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

zopey

nsqrlj 发表于 2018-6-7 10:01
多表、单表中单列查重和多表多列、单列查重都可以实现。就业单表多列如何查重绕注了，又着急用，故求助。

单列查重 等 怎么实现的呢 ，附件里 什么都看不到。

liulang0808

colorindex这个有范围，注意范围
另外需求没有看懂，就结合目前附件做了案例，供参考

nsqrlj

zopey 发表于 2018-6-7 10:10
单列查重 等 怎么实现的呢 ，附件里 什么都看不到。

Set arr = Range("K3:K12")
For Each rng In arr
    k = Application.CountIf(arr, rng)
    If k > 1 Then
        MsgBox "单元格 " & rng.Address & " 重复"