找出 Excel 中两个文本单元格之间的差异

Question

我有 2 个单元格，其中包含用逗号 (,) 分隔的数字列表。 K中的列表为完整集，D中的列表为部分集。我想将 M 中不在 D.

中的部分放入 K

示例：

K4 = 1,2,5,6

D4 = 1,5,6

结果M4 = 2

我用过 SUBSTITUTE，但只有当 D 中的数字按顺序排列且不遗漏 K 中间的任何内容时才有效。

我需要一个非VBA的答案，谢谢。

Answer 1

如果您订阅了 Office 365 Excel，那么您可以使用这个数组公式：

=TEXTJOIN(",",TRUE,IF(ISNUMBER(SEARCH("," &TRIM(MID(SUBSTITUTE(K4,",",REPT(" ",999)),(ROW(INDIRECT("1:" & LEN(K4)-LEN(SUBSTITUTE(K4,",",""))+1))-1)*999+1,999))&",",","&D4&",")),"",TRIM(MID(SUBSTITUTE(K4,",",REPT(" ",999)),(ROW(INDIRECT("1:" & LEN(K4)-LEN(SUBSTITUTE(K4,",",""))+1))-1)*999+1,999))))

作为数组公式，退出编辑模式时需要使用Ctrl-Shift-Enter而不是Enter来确认。如果操作正确，那么 excel 将在公式周围加上 {}。

我知道您要求的不是 vba 答案，但是；

如果您没有订阅 Office 365 Excel您可以将此代码放入工作簿附带的模块中并使用上述公式。

Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
    Dim d As Long
    Dim c As Long
    Dim arr2()
    Dim t As Long, y As Long
    t = -1
    y = -1
    If TypeName(arr) = "Range" Then
        arr2 = arr.Value
    Else
        arr2 = arr
    End If
    On Error Resume Next
    t = UBound(arr2, 2)
    y = UBound(arr2, 1)
    On Error GoTo 0

    If t >= 0 And y >= 0 Then
        For c = LBound(arr2, 1) To UBound(arr2, 1)
            For d = LBound(arr2, 1) To UBound(arr2, 2)
                If arr2(c, d) <> "" Or Not skipblank Then
                    TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
                End If
            Next d
        Next c
    Else
        For c = LBound(arr2) To UBound(arr2)
            If arr2(c) <> "" Or Not skipblank Then
                TEXTJOIN = TEXTJOIN & arr2(c) & delim
            End If
        Next c
    End If
    TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function

Answer 2

这是一个适用于单个缺失值的公式。如果您需要 return 多个缺失值，可以使用辅助列，但 VBA 会简单得多。该公式通常是输入的，应该适用于大多数版本的 Excel:

=LOOKUP(2,1/ISERR(SEARCH(TRIM(MID(SUBSTITUTE(K4,",",REPT(" ",99)),seq_99,99)),D4 & ",")),TRIM(MID(SUBSTITUTE(K4,",",REPT(" ",99)),seq_99,99)))

seq_99 是定义的名称（在本例中为公式），它生成值数组 {1,99,198,297, ...}

seq_99  Refers to:  =IF(ROW(INDEX(:535,1,1):INDEX(:535,255,1))=1,1,(ROW(INDEX(:535,1,1):INDEX(:535,255,1))-1)*99)

对于 VBA 例程，特别推荐如果可能缺少一项以上，请尝试以下操作：

Option Explicit
Function MissingValues(sFull As String, sPartial As String) As String
    Dim RE As Object
    Dim sPat As String
    Dim S As String

'Replace commas with pipes, surround by brackets "[]" and follow by end
'  of line to create regex pattern from sPartial
sPat = "[" & Replace(sPartial, ",", "|") & "](?:,|$)"

Set RE = CreateObject("vbscript.regexp")
With RE
    .Pattern = sPat
    .ignorecase = True
    .Global = True
    .MultiLine = True
    S = .Replace(sFull, "")
    .Pattern = ",$"
    MissingValues = .Replace(S, "")
End With

End Function

该例程使用正则表达式删除出现在部分集中的完整集中的所有内容。（然后最后检查以删除任何终端逗号）。这将 return 在相同的逗号分隔模式中缺少多个值。它不区分大小写，但您可以看到可以轻松更改的位置。

这是一个屏幕截图，比较了存在两个缺失值时两种方法的输出：

找出 Excel 中两个文本单元格之间的差异

Find the difference between two cells of text in Excel

excel

formulas

excel-2016