Compare 2 data sets in 2 worksheets and highlight the difference based on matched criteria(比较2个工作表中的2个数据集，并根据匹配的标准突出显示差异)

转载 作者：bug小助手 更新时间：2023-10-25 16:35:52 26 4

Option Explicit

Sub compareAB()
    Dim arB, cel As Range, i As Long
    Dim dict As Object, k As String, n As Long
    Dim t0 As Single: t0 = Timer
    
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' read table B into dictionary
    arB = Range("Table B").Value2
    For i = 1 To UBound(arB)
        k = arB(i, 1) & ";" & arB(i, 2)
        If dict.exists(k) Then
            MsgBox "Duplicate key " & k & " on row " & i, vbCritical
            Exit Sub
        ElseIf Len(k) > 1 Then
            dict.Add k, arB(i, 3)
        End If
    Next
    'Dim ky: For Each ky In dict.keys: Debug.Print ky, dict(ky): Next
 
    ' highlight diff in Table A
    Application.ScreenUpdating = False
    With Range("Table A").Columns(3)
        .Interior.Pattern = xlNone
        For Each cel In .Cells
            k = cel.Offset(, -2).Value2 & ";" & cel.Offset(, -1).Value2
            
            If dict.exists(k) Then
                If dict(k) <> cel.Value2 Then
                    cel.Interior.Color = RGB(255, 255, 0) ' yellow
                    n = n + 1
                End If
            End If
        Next
    End With
    Application.ScreenUpdating = True
    
    MsgBox n & " rows highlighted in Table A", _
           vbInformation, Format(Timer - t0, "0.0 secs")

End Sub

26 4 0

• javascript - 是 incorrect? 我可以在同一元素的 v-bind 中使用来自 v-for 的匹配项吗？

  我正在尝试为匹配中的每个匹配呈现一些 HTML，但是，我不太确定 实际上是正确的。 更具体地说，我不确定我是否可以使用 v-bind:match='match'在与循环相同的元素上 v-for='ma

• match - Any.match 是做什么的？

  它具有看似简单的代码: method match(Any:U: |) { self.Str; nqp::getlexcaller('$/') = Nil } 但是，这是它的行为: (^3).matc

• python - 替代 `match = re.match(); if match: ...` 成语？

  如果您想检查某项是否与正则表达式匹配，如果是，请打印第一组，您就可以了.. import re match = re.match("(\d+)g", "123g") if match is not N

• mysql - MATCH (field1, field2) 和 MATCH(field1) OR MATCH(field2) 之间的区别

  以下两个查询的结果有差异吗？ SELECT * FROM table1, table2 WHERE ( MATCH(table1.row1) AGAINST('searchstring' IN

• vim 语法 : match only when between other matches

  我正在尝试为我的日志文件创建一个语法文件。它们采用以下格式: [time] LEVEL filepath:line - message 我的语法文件如下所示: :syn region logTime

• ruby - 为什么 `Symbol#match` 的行为与 `String#match` 和 `Regexp#match` 不同？

  String#match 和 Regexp#match 在匹配成功时返回一个 MatchData: "".match(//) # => # //.match("") # => # //.match(:

• swift - 实例方法 'match(match:player:didChangeState:)'几乎匹配协议(protocol) 'match(_:player:didChange:)'的可选要求 'GKMatchDelegate'

  我的代码中有这个函数: func match(match: GKMatch, player playerID: String, didChangeState state: GKPlayerConnec

• match - case 和 match 有什么区别？

  我对 match 和 case 之间的区别感到困惑。在 document ，其中提到match支持通用模式匹配。 > (define (m x) (match x [(list a

• javascript - .match ("") 和 .match(/^$/) 有什么区别？

  我在检查特定元素中的空 HTML 内容时遇到了问题。当我使用 someElement.trim().match("") 即使 HTML 内容为空，我有时也会得到 true。我改成了 someEleme

• python - 正则表达式 : match within a match

  我正在尝试使用正则表达式查找包含特定词的两个词之间的所有内容，但是这些词是重复的，所以我没有得到我想要的匹配项。 例如，我想要“你好”和“再见”之间的所有内容，以便它们之间存在“苹果”一词: hell

• HTTP If-None-Match 与 If-Match

  我目前正在构建一个 PHP 脚本，它将在需要时响应 HTTP“304 Not Modified”。 (请参阅 question #2086712 了解我目前所做的事情)。 目前我回答以下问题: If-

• ruby 正则表达式 : Matching a < without a matching >

  给定以下 XML 10 我希望能够正确识别内部 的 s : result = subject.gsub(/]*>)/, '<') 解释: ]* # any number of charact

• excel - If Not IsError(MATCH) 没有绕过错误。如何跳过未找到的 MATCHes？

  这个问题在这里已经有了答案: How to error handle 1004 Error with WorksheetFunction.VLookup? (3 个回答) 3年前关闭。 目标:查找输入

• arrays - -match…和|之间的区别其中{$ _ -match…}

  我已经尝试了好一阵子了，但是我似乎无法弄清楚这两者之间的区别。特别是，与数据数组有关的差异: PS C:>$myarray = "a", "ab", "abc" PS C:>$myarray -mat

• clojure - 将模式和结果作为向量传递给 core.match/match 的宏

  我正在努力研究如何构建一个宏，让我可以将模式和结果以向量的形式传递给 core.match/match 。我希望能够做到这一点: (let [x {:a 1} patterns [[{:a

• javascript - "matches x and remembers the match"在正则表达式中意味着什么

  这个问题在这里已经有了答案: Reference - What does this regex mean? (1 个回答) 关闭 8 年前。 如果这看起来微不足道但只是为了理解正则表达式，请原谅我:

• php - 为什么 MATCH against 的效果不如 Exact match？

  我的 MySQL 表中有大约 20 行，其 Title 列为 Elsewhere 并具有其他不同的列参数。 我目前正在使用这样的查询，因为我的大多数搜索(通过 PHP 文件)都需要我进行猜测。所以我使

• MYSQL : match and remove matched word from string

  当找到匹配时，我必须从字符串中删除单词 让我们看看 我的输入字符串是 “肯诺克斯路” 比赛表演中的单词表 街道 驾驶 道路 4. 车道 输出字符串应该是: KENOX 我正在使用 vb.net 作为此

• python - 正则表达式 : How to match using previous matches?

  我正在搜索以下形式的字符串模式: XXXAXXX # exactly 3 Xs, followed by a non-X, followed by 3Xs 所有的 X 必须是相同的字符，并且 A 不能

• javascript - gulp version.match -> 无法读取属性 "match"

  好吧，我是 gulp 和 sass 的新手，我正在努力让它发挥作用。我正确安装了所有东西，但我收到了这个愚蠢的错误。有解决办法吗？ PS C:\Users\Bojan Kolano\Desktop\F