多行多列数据中筛选不同行之间重复出现4次的数字，并标记

革力

cyq4896 发表于 2024-8-26 13:00
练习一下......

感谢帮助

革力

rysxing 发表于 2024-8-26 16:11
试试，jsa。。。。。。

老师，为啥代码复制到其他表格里就不显示了，打开你这个才能显示

rysxing

可以的，可能你没复制对，再检查一下

jaxxcyh

1. Sub test()
   
2.     Dim arr()
   
3.     Dim lastRow%
   
4.     Dim myColor As Long
   
5.    
   
6.     lastRow = [a1].End(xlDown).Row
   
7.     arr = [a1].Resize(lastRow, 8).Value
   
8.    
   
9.     n = 0
   
10.     For i = 2 To lastRow - 1            '获取参照行
    
11.         For j = i + 1 To lastRow        '获取比较行
    
12.             n = 0                       '开始一个新的比较行，计数器就清零
    
13.             For ii = 3 To 8             '获取参照行参照单元格
    
14.                 For jj = 3 To 8         '获取比较行比较单元格
    
15.                     If arr(j, jj) = arr(i, ii) Then
    
16.                         n = n + 1       '计数器用来统计重复单元格的个数
    
17.                     End If
    
18.                     If n = 4 Then
    
19.                         myColor = Int(Rnd * &HFFFFFF) Or &H707070
    
20.                         Rows(i).Cells.Interior.Color = myColor
    
21.                         Rows(j).Cells.Interior.Color = myColor
    
22.                         Cells(j, 9).Value = "与" & Cells(i, 2).Value & "重复4个报价"
    
23.                         Cells(j, 10).Value = "序号数相差" & j - i
    
24.                     End If
    
25.                 Next
    
26.             Next
    
27.         Next
    
28.     Next
    
29. 
    
30. End Sub
    

复制代码

jaxxcyh

cyq4896 发表于 2024-8-26 13:00
练习一下......

没涂上颜色不够直观

jaxxcyh

试试俺这个，涂色+说明，都有。给个花花吧。

1. Sub test()
   
2.     Dim arr()
   
3.     Dim lastRow%
   
4.     Dim myColor As Long
   
5.    
   
6.     lastRow = [a1].End(xlDown).Row
   
7.     arr = [a1].Resize(lastRow, 8).Value
   
8.    
   
9.     n = 0
   
10.     For i = 2 To lastRow - 1            '获取参照行
    
11.         For j = i + 1 To lastRow        '获取比较行
    
12.             n = 0                       '开始一个新的比较行，计数器就清零
    
13.             For ii = 3 To 8             '获取参照行参照单元格
    
14.                 For jj = 3 To 8         '获取比较行比较单元格
    
15.                     If arr(j, jj) = arr(i, ii) Then
    
16.                         n = n + 1       '计数器用来统计重复单元格的个数
    
17.                     End If
    
18.                     If n = 4 Then
    
19.                         myColor = Int(Rnd * &HFFFFFF) Or &H707070
    
20.                         Rows(i).Cells.Interior.Color = myColor
    
21.                         Rows(j).Cells.Interior.Color = myColor
    
22.                         Cells(j, 9).Value = "与" & Cells(i, 2).Value & "重复4个报价"
    
23.                         Cells(j, 10).Value = "序号数相差" & j - i
    
24.                     End If
    
25.                 Next
    
26.             Next
    
27.         Next
    
28.     Next
    
29. 
    
30. End Sub
    

复制代码

革力

jaxxcyh 发表于 2024-8-26 22:52
试试俺这个，涂色+说明，都有。给个花花吧。

感谢，超过限制了，要24小时候才能给花花，到时给老师你补上

革力

jaxxcyh 发表于 2024-8-26 22:52
试试俺这个，涂色+说明，都有。给个花花吧。

老师，又打扰了，增加了两个要求，在K、L、M、N列 列出重复的四个数，在O、P、Q、R列列出剩下的两个不重复的数字，不需要像图片这样弄颜色，如图片

ynzsvt

革力 发表于 2024-9-3 08:49
老师，又打扰了，增加了两个要求，在K、L、M、N列 列出重复的四个数，在O、P、Q、R列列出剩下的两个不重 ...

那会不会5个相同甚至6个相同。

革力

ynzsvt 发表于 2024-9-3 09:16
那会不会5个相同甚至6个相同。

有可能