找相同数据并提取出来

fei476a

各位大神，请问下：
如附件，找出AB列中相同的数据，并在C列显示出来。对相同的数字，在A、B、C列标上相同底色。求助，万分感谢。

jians0529

你的压缩档案是空的。。。

fei476a

jians0529 发表于 2022-11-16 17:07
你的压缩档案是空的。。。

谢谢提醒，已经改好了。

nie414006

这样吗？

fei476a

nie414006 发表于 2022-11-16 18:43
这样吗？

大侠，能用不同的颜色显示不？并且C列也标上颜色，谢谢

nie414006

fei476a 发表于 2022-11-17 16:52
大侠，能用不同的颜色显示不？并且C列也标上颜色，谢谢

那就太难了

风中的我脸

1. Sub FindSameNumber()
   
2.     Dim dNumber As Object
   
3.     Set dNumber = CreateObject("scripting.dictionary")
   
4.     Dim aFind
   
5.     Dim i As Long, lngRow As Long, s As Long
   
6.     Dim aColor(1 To 3) As Long
   
7.    
   
8.     aFind = Range([a1], Cells(Rows.Count, "b").End(xlUp))
   
9.     For i = 1 To UBound(aFind)
   
10.         dNumber(aFind(i, 1)) = i
    
11.     Next
    
12.    
    
13.     Range("a1").CurrentRegion.Interior.Pattern = xlNone
    
14.     Range([c1], Cells(Rows.Count, "c").End(xlUp)).ClearContents
    
15.     For i = 1 To UBound(aFind)
    
16.         If dNumber.exists(aFind(i, 2)) Then
    
17.             lngRow = dNumber(aFind(i, 2))
    
18.             For s = 1 To 3
    
19.                 aColor(s) = Application.WorksheetFunction.RandBetween(-70, 50) + 200
    
20.             Next
    
21.             
    
22.             Cells(lngRow, 1).Interior.Color = RGB(aColor(1), aColor(2), aColor(3))
    
23.             Cells(i, 3) = aFind(i, 2)
    
24.         End If
    
25.     Next
    
26.    
    
27.     aFind = Range("A1").CurrentRegion
    
28.     For i = 1 To UBound(aFind)
    
29.         If aFind(i, 2) = aFind(i, 3) Then
    
30.             lngRow = dNumber(aFind(i, 2))
    
31.             Cells(i, 2).Interior.Color = Cells(lngRow, 1).Interior.Color
    
32.             Cells(i, 3).Interior.Color = Cells(lngRow, 1).Interior.Color
    
33.         End If
    
34.     Next
    
35. End Sub
    

复制代码

dfzaq

                  学习了！

fei476a

风中的我脸 发表于 2022-11-17 23:47

太感谢了，你这简直就是神操作啊，请问我怎么应用这个函数或是计算公式呢？因为实际应用是其他形式的文字，内容比这多得多了。

风中的我脸

fei476a 发表于 2022-11-18 14:14
太感谢了，你这简直就是神操作啊，请问我怎么应用这个函数或是计算公式呢？因为实际应用是其他形式的文字 ...

开发工具——模块1——运行
百度VBA的运行方法