求助！如何查找不完全重复项（疑似匹配）？？

amy-0018 · 发表于 2015-7-10 15:15

求助各位大侠，

将B列与A列对比，

找到与A列中含相同关键字的结果（或找到不完全重复项），

显示在C列。如下图，含附件。

麻烦各位大侠了，磕头！

39660519 · 发表于 2015-7-10 16:26

试试看符合要求吗

amy-0018 · 发表于 2015-7-10 16:39

39660519 发表于 2015-7-10 16:26
试试看符合要求吗

不好意思，我打不开啊。没有看到结果。能再发一遍吗？或者加我q2767573702，谢谢啊

39660519 · 发表于 2015-7-10 16:43

再试试看？？

yjh_27 · 发表于 2015-7-10 19:20

本帖最后由 yjh_27 于 2015-7-10 19:21 编辑

雷同字符提取函数自定义函数
http://club.excelhome.net/thread-883745-1-1.html
(出处: ExcelHome技术论坛)

amy-0018 · 发表于 2015-7-10 20:32

yjh_27 发表于 2015-7-10 19:20
雷同字符提取函数自定义函数
http://club.excelhome.net/thread-883745-1-1.html
(出处: ExcelHome技术 ...

您的这个帖子我也研究了很久，可是我还是没搞明白……是将表格上VBA的代码复制过来吗？我试了很多次，还是没找到点子上。您能再指点一下吗？我是这几天才接触VBA的，了解不深……

yjh_27 · 发表于 2015-7-10 22:10

amy-0018 发表于 2015-7-10 20:32
您的这个帖子我也研究了很久，可是我还是没搞明白……是将表格上VBA的代码复制过来吗？我试了很多次，还 ...

1 统计A列词频
2 排除b列的高频词
3 模糊查找

amy-0018 · 发表于 2015-7-11 09:41

yjh_27 发表于 2015-7-10 22:10
1 统计A列词频
2 排除b列的高频词
3 模糊查找

您是说还要先把要查找的关键字找出来吗？我看了您设计的函数，还有一个COMMANDBUTTO的按钮。效果就是我想要的，但是，请问怎么应用到我的表格呢？我的数据有5000多个。我刚才将我的数据复制到您发给我的表格里，想试试看能不能使用。结果它反复提示我：不能更改数组的某一部分。所以，我现在不知道怎么办了。

coby001 · 发表于 2015-7-11 12:11

这种问题，用正则表达式可轻松解决~~

yjh_27 · 发表于 2015-7-11 12:23

本帖最后由 yjh_27 于 2015-7-11 12:27 编辑

amy-0018 发表于 2015-7-11 09:41
您是说还要先把要查找的关键字找出来吗？我看了您设计的函数，还有一个COMMANDBUTTO的按钮。效果就是我想 ...

1 把多次出现的非关键词找出，
2 移除非关键词
3 查找

以下要根据你的数据适当调整
Sub aa()
arr = [a2:a8]
brr = [b2:b6]

crr = YJHCWS(arr)
For i = UBound(crr) To 1 Step -1
If crr(i, 2) > 1 Then Exit For '1次以上的非关键词
Next
pc = i
For i = 1 To UBound(brr)
For ii = 1 To pc
      brr(i, 1) = Replace(brr(i, 1), crr(ii, 1), "")       '移除非关键词
Next
if len(brr(i, 1))>1 then brr(i, 1) = FuzzyLookup(brr(i, 1), arr, , 2, 2, 4)       '2个及以上开始计数计数2个以上为匹配
Next
[c2:c6] = brr
End Sub

		自动登录	找回密码
密码			免费注册