Question

我在比较具有不同价值的细胞时遇到问题，并将一个细胞中缺失的细胞分配给第三个细胞。

示例：

我正在尝试匹配两个单元格：

细胞1（a b c d）＆amp;单元格2（c a b）都有共同的“a b c”，我希望宏显示

缺少值“d”将在单元格3中显示。

Answer 1

考虑：

Public Function WhatsMissing(Big As String, Little As String) As String
    Dim V As String
    V = Big
    For i = 1 To Len(Little)
        ch = Mid(Little, i, 1)
        V = Replace(V, ch, "")
    Next i
    WhatsMissing = V
End Function

因此，如果A1包含 abcdefg 且B1包含 def ，则= WhatsMissing（A1，B1）将显示：

<强> ABCG

Answer 2

如果您的值肯定会有空格，那么您可以使用Split函数将它们拆分并将它们放入数组（或字典对象）中，并比较两个字典的差异。

这是一个简单的例子：

Option Explicit

Sub getDifferences()
    Dim s1() As String
    Dim s2() As String

    s1 = Split(Range("A1").Value, " ") ' a b c d
    s2 = Split(Range("B1").Value, " ") ' c a b

    Dim d1 As Object
    Dim d2 As Object

    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")

    ' collect the values from cell 1
    Dim i As Long
    For i = 0 To UBound(s1)
        d1.Add s1(i), i
    Next

    ' collect the values from cell 2
    For i = 0 To UBound(s2)
        d2.Add s2(i), i
    Next


    Dim missing As Object
    Set missing = CreateObject("Scripting.Dictionary")
    Dim sKey As Variant

    ' check missing items from first cell to second
    For Each sKey In d1.keys()
        If (d2.exists(sKey) = False) Then
            missing.Add sKey, 1
        End If
    Next

    ' check missing items from second cell to first
    For Each sKey In d2.keys()
        If (d1.exists(sKey) = False) Then
            missing.Add sKey, 1
        End If
    Next

    ' display the missing items between the two
    For Each sKey In missing.keys()
        Debug.Print sKey
    Next


End Sub

如果细胞1具有：a b c d

细胞2有：c a b e

这将打印出来：d e

希望这有帮助

VBA宏来比较单元格值

2 个答案: