在Excel中从另一个字符串中减去逗号分隔的字符串[关闭]

Question

如何在 Excel 中从另一个字符串中减去逗号分隔的字符串？

• 如果 A1：1,2,3,4,5,6,7,8,9
• 和A2：2,6,9
• 我想要的结果应该在单元格 A3 中，减法后 (A1-A2)：1,3,4,5,7,8

A2=2,3,4（串行）通过SUBSTITUTE函数很容易，但是我找不到上述问题的解决方案。

Answer 1

您同时拥有标记公式和 VBA。所以让我也给你两个选择：

---

1)公式

=TEXTJOIN(",",1,FILTERXML("<t><s>"&SUBSTITUTE(A1&","&A2,",","</s><s>")&"</s></t>","//s[not(following::*=. or preceding::*=.)]"))

注1：这是一个数组公式，需要通过CtrlShiftEnter确认

注意2：这需要访问TEXTJOIN 函数，该函数在office 365 和Excel 2019 中可用。

注意3：更多有用的FILTERXML“技巧”可以找到here

---

2)UDF

我建议使用 Split 和 Join 函数来执行此操作：

Function TxtFilter(val1 As String, val2 As String, sep As String) As String

Dim arr1 As Variant, arr2 As Variant
Dim x As Long
Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")

arr1 = Split(val1, sep)
arr2 = Split(val2, sep)

'Iterate first array to load dictionary
For x = LBound(arr1) To UBound(arr1)
    dict(arr1(x)) = 1
Next x

'Iterate second array to remove from dictionary
For x = LBound(arr2) To UBound(arr2)
    If dict.Exists(arr2(x)) Then dict.Remove arr2(x)
Next x

'Join remainder back together
TxtFilter = Join(dict.keys, sep)

End Function

通过=TxtFilter(A1,A2,",")拨打任何单元格