两个表格数据比对

tiantao186

两个表格数据比对，几个条件完全相同时，在表格中标示颜色

ykcbf1100

楼主没说清楚啊，按哪几个条件比对的。那么多列，你不会一起作为条件吧。

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, j&, strFileName$, strPath$, dic As Object, strKey$
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = strPath & "表格2.xls"
    If Dir(strFileName) = "" Then MsgBox "条件表文件不存在，请检查！", vbExclamation: Exit Sub
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    With GetObject(strFileName)
        ar = .Worksheets(1).[A1].CurrentRegion.Value
        For i = 2 To UBound(ar)
            strKey = ""
            For j = 1 To UBound(ar, 2)
                strKey = strKey & ar(i, j)
            Next j
            dic(strKey) = Empty
        Next i
        .Close False
    End With
   
    br = Array(3, 7, 19, 5, 8, 9, 11)
    With [A1].CurrentRegion '.Value
        ar = .Value
        .Interior.Color = xlNone
        For i = 2 To UBound(ar)
            strKey = ""
            For j = 0 To UBound(br)
                strKey = strKey & ar(i, br(j))
            Next j
            If dic.exists(strKey) Then
                .Rows(i).Interior.Color = vbYellow
            End If
        Next i
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。

gyf519

看了一个月视频，我也练习一个

xlqsxl

好久没来坛子了，最近我的工具刚好进化了文件对比分析功能。
https://club.excelhome.net/threa ... tml?_dsign=e20fcbc2

zpy2

// select * from 条件表;
cli_raw_td~1;
select '<tr '||iif(b.批号 is not null,'style="background:yellow"','')||'><td>'||a.rowid old_rowid,a.*,b.批号 from 结果表 a left join 条件表 b on a.f03 like b.制单时间 and a.f19 like b.批号;

tiantao186

gwjkkkkk 发表于 2024-8-14 20:35
Option Explicit
Sub test()
    Dim ar, br, i&, j&, strFileName$, strPath$, dic As Object, strKey$
...

大神，能否加个反之，在另一个表把不能匹配相同的也标个颜色