Office中国论坛/Access中国论坛

标题: 如何查找2个工作表相同数据的行 [打印本页]

作者: 秋风2016 时间: 2017-5-17 13:41
标题: 如何查找2个工作表相同数据的行
本帖最后由秋风2016 于 2017-5-17 13:47 编辑

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

作者: GGMM 时间: 2017-5-17 17:14
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 时间: 2017-5-17 17:25
在条件格式里使用公式

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

复制代码

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

作者: admin 时间: 2017-5-17 18:34
赞一个

作者: 秋风2016 时间: 2017-5-17 19:49
本帖最后由秋风2016 于 2017-5-17 19:50 编辑

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

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

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

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

作者: 秋风2016 时间: 2017-5-17 20:30

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

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)