两个区域重复数据单元格加上红底

vilcent2014

笨鸟飞不高 发表于 2020-6-29 14:51
有点看不懂你的要求！！ 区域1中的101，区域1中的第2个45为何不填颜色？？。。。

不好意思，是指每行对应的行，区域1和区域2数据重复标色

vilcent2014

大师们有个小问题，就是，区域1和区域2中，每个同样的行进行比较，数据重复表红色，谢谢

vilcent2014

sj15627581616 发表于 2020-6-29 13:33
参考

你好，我的要求表达的可能不是很清楚，要求，区域1和区域2中每行进行比较重复的添加颜色，不是整个区域，谢谢！给您添麻烦了

vilcent2014

区域1和区域2数据比较时，必须是同一行数据比较

笨鸟飞不高

vilcent2014 发表于 2020-7-2 08:14
不好意思，是指每行对应的行，区域1和区域2数据重复标色

区域1和区域2重复数据添加颜色.zip (19.45 KB, 下载次数: 9)

2020-7-2 09:15 上传

点击文件名下载附件

猜一个！！

any1009

试试看：

1. Sub test()
   
2. 
   
3. arr = [A1].CurrentRegion
   
4. 
   
5. For i = 1 To UBound(arr)
   
6.     Set d = CreateObject("Scripting.Dictionary")
   
7.     For j = 1 To UBound(arr, 2)
   
8.         If arr(i, j) <> "" Then
   
9.             d(arr(i, j)) = 1
   
10.         End If
    
11.     Next
    
12.     If Cells(i, Columns.Count).End(xlToLeft).Column > UBound(arr, 2) Then
    
13.         t = Cells(i, Columns.Count).End(xlToLeft).Column
    
14.     Else
    
15.         t = UBound(arr) + 1
    
16.     End If
    
17.     brr = Range(Cells(1, UBound(arr) + 1), Cells(UBound(arr), t))
    
18.     For k = 1 To UBound(brr, 2)
    
19.         If d.exists(brr(i, k)) Then
    
20.             d(brr(i, k)) = 2
    
21.         End If
    
22.     Next
    
23.     crr = Range(Cells(1, 1), Cells(UBound(arr), t))
    
24.     For l = 1 To UBound(crr, 2)
    
25.         If d(crr(i, l)) = 2 Then
    
26.             Cells(i, l).Interior.ColorIndex = 3
    
27.         End If
    
28.     Next
    
29.     Set d = Nothing
    
30. Next
    
31. 
    
32. End Sub
    

复制代码

xuemei0216

vilcent2014 发表于 2020-7-2 08:12
这个有点小问题，就是区域1没有，区域2的重复数据给标红了

确实忘了这个问题，改好了

vilcent2014

any1009 发表于 2020-7-2 09:46
试试看：

正式我想要的，谢谢，完美

vilcent2014

any1009 发表于 2020-6-29 13:22
试试看：

帮我看看这个，谢谢！同一行两个指定区域查重复，大神们，帮帮忙！
http://club.excelhome.net/thread-1589198-1-1.html
(出处: ExcelHome技术论坛)

vilcent2014

sj15627581616 发表于 2020-6-29 13:33
参考

帮我看看这个，谢谢！同一行两个指定区域查重复，大神们，帮帮忙！
http://club.excelhome.net/thread-1589198-1-1.html
(出处: ExcelHome技术论坛)