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

sjz0

A1= 01 02 03 04 09 12 22 88 93      -------------不大于100，
A2=01 04 22 67
A3中要求出A1与A2的交集，应该是01 04 22
怎么样才能求出？要用VBA才行吗？望大侠不吝赐教，多谢，多谢

本人菜鸟一名，最好能上传一下文件，多谢多谢。

最佳答案

月排行榜 / 总排行榜

香川群子

2014-4-14 22:46

一个自定义函数彻底解决。
包含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
    

复制代码

跳转到最佳答案楼层

Ex_EP

1. Sub marco()
   
2. Dim c()
   
3. a = Split([a1], " ")
   
4. b = Split([a2], " ")
   
5. For i = 0 To UBound(a)
   
6.    For j = 0 To UBound(b)
   
7.      If a(i) = b(j) Then
   
8.         n = n + 1
   
9.         ReDim Preserve c(1 To n)
   
10.         c(n) = b(j)
    
11.         GoTo 100
    
12.     End If
    
13.     Next j
    
14. 100:
    
15.     Next i
    
16. [a3] = Join(c, " ")
    
17. End Sub
    

复制代码

sjz0

Ex_EP 发表于 2014-4-9 15:28

感谢您的代码，不过我太菜鸟，宏到是找的到，你的过程函数不知怎么用，贴子我又编辑了一下，加了附件
可否请您上传一下调好的文件？多谢，多谢！！

那么的帅

sjz0 发表于 2014-4-9 16:09
感谢您的代码，不过我太菜鸟，宏到是找的到，你的过程函数不知怎么用，贴子我又编辑了一下，加了附件
可 ...

利用自定义函数完成
322533-VBA-自定义函数-提取字串符交集.zip (13.39 KB, 下载次数: 15)

2014-4-9 17:07 上传

点击文件名下载附件

Ex_EP

sjz0 发表于 2014-4-9 16:09
感谢您的代码，不过我太菜鸟，宏到是找的到，你的过程函数不知怎么用，贴子我又编辑了一下，加了附件
可 ...

你看看  

sjz0

问题解决，多谢，多谢

sjz0

那么的帅 发表于 2014-4-9 17:07
利用自定义函数完成

老兄，多谢你的帮助。
代码中
a = Split(RNG(1), " ")
    b = Split(RNG(2), " ")

是不是限定了只有上下，两个单元格求交集？
如果我想任意的两个单元格求交集这个怎么改？

那么的帅

sjz0 发表于 2014-4-9 23:58
老兄，多谢你的帮助。
代码中
a = Split(RNG(1), " ")

322533-VBA-自定义函数-提取字串符交集-1.zip (13.47 KB, 下载次数: 22)

2014-4-10 00:24 上传

点击文件名下载附件

sjz0

那么的帅 发表于 2014-4-10 00:24

完全正确，多向老兄

sjz0

那么的帅 发表于 2014-4-10 00:24

老兄，多谢你写的交集公式。本来想拿你的公式改一下，写出差集与并集的公式，无耐我太笨。
写不出来，能否请您再帮写一下，多多感谢！！！