[已解决]求高手解答关于EXCEL中字符串求交集问题

那么的帅

sjz0 发表于 2014-4-14 21:45
老兄，多谢你写的交集公式。本来想拿你的公式改一下，写出差集与并集的公式，无耐我太笨。
写不出来，能 ...

问题解决，请设置最佳答案
如果有新问题，重新发帖提问

香川群子

一个自定义函数彻底解决。
包含k=0 补集 k=1 交集 k=2 并集 k=-1 差集 四种集合比较运算：

1. 
   
2. Function jhys(A, B, Optional k = 1) '集合运算 的拼音首字母
   
3.     'k=0 补集 k=1 交集 k=2 并集 k=-1 差集
   
4.    
   
5.     Dim c(99)
   
6.     s = Split(A)
   
7.     For i = 0 To UBound(s)
   
8.         c(s(i)) = s(i)
   
9.     Next
   
10.    
    
11.     s = Split(B)
    
12.     If k = 0 Then '返回1-99的补集
    
13.         For i = 0 To UBound(s)
    
14.             c(s(i)) = s(i)
    
15.         Next
    
16.         For i = 1 To 99
    
17.             If c(i) = 0 Then t = t & " " & Right(0 & i, 2)
    
18.         Next
    
19.     ElseIf k = 1 Then '返回AB交集(AB都含有)
    
20.         For i = 0 To UBound(s)
    
21.             If c(s(i)) Then t = t & " " & s(i)
    
22.         Next
    
23.     ElseIf k = 2 Then '返回AB并集(A或B含有)
    
24.         For i = 0 To UBound(s)
    
25.             c(s(i)) = s(i)
    
26.         Next
    
27.         For i = 1 To 99
    
28.             If c(i) Then t = t & " " & Right(0 & i, 2)
    
29.         Next
    
30.     ElseIf k = -1 Then '返回A-B差集(A含B不含)
    
31.         For i = 0 To UBound(s)
    
32.             If c(s(i)) Then c(s(i)) = 0
    
33.         Next
    
34.         For i = 1 To 99
    
35.             If c(i) Then t = t & " " & Right(0 & i, 2)
    
36.         Next
    
37.     End If
    
38.     jhys = Mid(t, 2)
    
39. End Function
    

复制代码

香川群子

补充：

k=0 时返回 1-99的补集合时，参数A、参数B的指定方法不同，结果不同。

1. =jhys(A1,A1,0) 时，计算返回A1单元格中集合A对于1-99总集的补集。

2. =jhys(A1,A2,0) 时，计算返回A1、A2单元格中集合A、集合B的并集对于1-99总集的补集。

sjz0

香川群子 发表于 2014-4-14 22:52
补充：

k=0 时返回 1-99的补集合时，参数A、参数B的指定方法不同，结果不同。

多谢，多谢，受益非浅!