如何对比两张EXCEL表，相同部分的行用颜色标记出来

yjwdsf

如何对比两张EXCEL表，表2的内容包含了表1的内容，把表1有的部分用VBA在表2中正行用颜色标记出来，谢谢

比如表1                                          表2
小明    1    2    3                   小文 1  2  3
小文     3    2   1                   小同  2   1  3
                                             小明  1   2  3

amesman

问题表述不清：是每个单元格比较还是整行比较内容是否相同？
最好上个附件啥的。。。

^_^.

你可以去看看超版发的这个 http://club.excelhome.net/thread-839551-1-1.html

yjwdsf

^_^. 发表于 2013-1-15 14:04
你可以去看看超版发的这个 http://club.excelhome.net/thread-839551-1-1.html

好的，谢谢你!

yjwdsf

amesman 发表于 2013-1-15 13:44
问题表述不清：是每个单元格比较还是整行比较内容是否相同？
最好上个附件啥的。。。

嗯，上传了附件了，其实大致的意思就是第二个表包含了第一个表的所有内容，我只是要要在第二个表中用底纹的颜色表示出来，可以做到吗？谢谢你

amesman

1. 
   
2. Sub test()
   
3. 
   
4. Dim iRow01&, iRow02&, cel As Range, Rng As Range, Findaddress
   
5. iRow01 = Sheet1.Range("A" & Sheet1.Rows.Count).End(3).Row
   
6. iRow02 = Sheet2.Range("A" & Sheet2.Rows.Count).End(3).Row
   
7. 
   
8. For Each cel In Sheet1.Range("A2:A" & iRow01)
   
9.     Set Rng = Sheet2.Range("A2:A" & iRow02).Find(cel.Text)
   
10.     If Not Rng Is Nothing Then
    
11.         Findaddress = Rng.Address
    
12.         Do
    
13.           If Rng.Offset(0, 1).Text = cel.Offset(0, 1).Text And Rng.Offset(0, 2).Text = cel.Offset(0, 2).Text And Rng.Offset(0, 3).Text = cel.Offset(0, 3).Text Then
    
14.              Rng.EntireRow.Interior.Color = 65535
    
15.           End If
    
16.           Set Rng = Sheet2.Range("A2:A" & iRow02).FindNext(Rng)
    
17.         Loop While Not Rng Is Nothing And Rng.Address <> Findaddress
    
18.     End If
    
19. Next
    
20. 
    
21. End Sub

复制代码

amesman

见附件。。。

yjwdsf

amesman 发表于 2013-1-15 17:17
见附件。。。

非常谢谢啊~就是这样了！厉害，帮大忙了

yjwdsf

amesman 发表于 2013-1-15 17:17
见附件。。。

您好！现在还是这个表，其他的条件都不改变，我现在工作中有遇到一个问题，现在要加多一个条件，就是反过来，如果表1的数据，表2也有，那么相对应的表1整行变颜色，这个要怎么办呢？？急！！其他的条件都不变哦~！就是要在表1中加多一个按钮来检测表2~~

liuym

sipnu,ipni.