如何查找2个工作表相同数据的行

秋风2016

求助，如何设定附件中表一和表二中A列和B列中某行的数值完全同时相等时，表一中该行的数值红色显示。

GGMM

Sub tst()
    Dim i As Integer
    Dim j As Integer
    Dim m As Integer
    Dim n As Integer
    i = Sheets("表一").Range("a65536").End(xlUp).Row
    j = Sheets("表二").Range("a65536").End(xlUp).Row
    For m = 2 To i
        For n = 2 To j
            If Sheet1.Cells(m, 1) & Sheet1.Cells(m, 2) = Sheet2.Cells(n, 1) & Sheet2.Cells(n, 2) Then
                Sheet1.Cells(m, 1).Font.ColorIndex = 3
                Sheet1.Cells(m, 2).Font.ColorIndex = 3
                Sheet1.Cells(m, 3).Font.ColorIndex = 3
                Sheet1.Cells(m, 4).Font.ColorIndex = 3
                Sheet1.Cells(m, 5).Font.ColorIndex = 3
            End If
        Next
    Next

End Sub

pureshadow

在条件格式里使用公式

1. =SUM(N(VLOOKUP($A2,表二!$A:$E,COLUMN($A:$E),)=$A2:$E2))=5

复制代码

注意，设置此公式前必须选取A:E列，再进入条件格式对话框。

admin

赞一个

秋风2016

pureshadow 发表于 2017-5-17 17:25
在条件格式里使用公式

注意，设置此公式前必须选取A:E列，再进入条件格式对话框。

谢谢您的回复，我依此做，提示“在条件格式条件中不能使用对其它工作表或工作簿的引用”，而且我看您的截图好像不是我要的结果，我想要的是在表一中错色显示与表二中有相同内容的行。

pureshadow

"表一中错色显示与表二中有相同内容的行"是什么意思啊？
另外，Office2003版早就淘汰了。

秋风2016

pureshadow 发表于 2017-5-17 20:15
"表一中错色显示与表二中有相同内容的行"是什么意思啊？
另外，Office2003版早就淘汰了。

我想从表一中找出与表二中有相同行内容的行，例如0101-3041-150  AL00这个，表一和表二中都有，那么在表一中突出显示。

pureshadow

我就是按这个意思设置的，只不过2003版不支持跨工作表条件格式，需要将公式写进自定义名称，然后再在条件格式里引用该自定义名称。