2个工作簿的第一个工作表有相同内容就在其中一个工作簿相同内容的单元格显示颜色

志65

Hi，我有2个工作簿，内容很多，我想要把2个工作簿里面第一个工作表里面的内容有相同的话，就在其中一个工作簿的第一个工作表有相同内容的表格用颜色显示。如我有2个工作簿，分别是命名为“A”和“B”，若A工作簿的第一个工作表的A列有内容跟B工作簿的第一个工作表中的A列有相同内容的话，就在A工作簿的第一个工作表中的A列用颜色显示。如截图。用宏代码来操作，尽量不用添加辅助列。望大神赐教，多谢。

xiangbaoan

……………………

志65

xiangbaoan 发表于 2018-10-3 09:35
……………………

多谢，若是我要用A工作簿第一个工作表的C列的内容跟B工作簿第一个表格的D列内容来查找相同内容，也是用颜色来显示，只是内容存在的列变化而已，那么如何修改那个宏代码？

xiangbaoan

志65 发表于 2018-10-3 14:00
多谢，若是我要用A工作簿第一个工作表的C列的内容跟B工作簿第一个表格的D列内容来查找相同内容，也是用颜 ...

我曾答过你的问题。
就你提供的附件及你对问题的描述，第一个问题应是解决了，你得积极正面的评价！
这是你的第二个问题，我在这里还是答复一下，你可不要让答题人灰心……
Sub test()
Application.ScreenUpdating = False
Dim d As Object, ar, lr&, r&, f$
f = ThisWorkbook.Path & "\B.xlsx"
If Dir(f) <> "" Then
    Set d = CreateObject("scripting.dictionary")
        With Workbooks.Open(f)
            With .Worksheets(1)
                ar = .Range("d1:d" & .Cells(.Rows.Count, 4).Row)
            End With
            .Close 0
        End With
        For r = 2 To UBound(ar)
            If Len(ar(r, 1)) Then d(ar(r, 1)) = ""
        Next
        With ActiveSheet
            With .Range("c1:c" & .Cells(.Rows.Count, 3).Row)
                .Interior.Pattern = xlNone
                ar = .Value
            End With
            For r = 2 To UBound(ar)
                If d.exists(ar(r, 1)) Then .Range("c" & r).Interior.Color = vbYellow
            Next
        End With
    Set d = Nothing
End If
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

xiangbaoan

因审核，发附件。

志65

xiangbaoan 发表于 2018-10-3 14:21
我曾答过你的问题。
就你提供的附件及你对问题的描述，第一个问题应是解决了，你得积极正面的评价！
这 ...

你说的积极正面评价是什么意思？是指每次别人留了答案就要在那里评分，是吗？好的，我知道了，多谢

xiangbaoan

志65 发表于 2018-10-3 15:57
你说的积极正面评价是什么意思？是指每次别人留了答案就要在那里评分，是吗？好的，我知道了，多谢

你的意思是说，答案不合要求，根本就没解决问题，对不起！！！
请继续等后面的答复。
顺便帮顶一下。

志65

xiangbaoan 发表于 2018-10-3 16:07
你的意思是说，答案不合要求，根本就没解决问题，对不起！！！
请继续等后面的答复。
顺便帮顶一下。

都解决了，多谢