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

yjh_27

需排除的非关键词，你也可直接指定不用YJHCWS统计

amy-0018

coby001 发表于 2015-7-11 12:11
这种问题，用正则表达式可轻松解决~~

求表达方式，求助求助

amy-0018

yjh_27 发表于 2015-7-11 12:43
需排除的非关键词，你也可直接指定不用YJHCWS统计

我在宏——VBA——模板里，是这样修改的：
Sub aa()
arr = [a2:a3505]
brr = [b2:b5464]

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:c49] = brr
End Sub


A列为数据1，B列为数据2，C列为我手工查找的非关键字（需排除的），然后在D2输入：=YJHCWS（$a$2:$a$3505)，然后按住ctrl+shift+enter，然后D2单元格出现的是：#NAME?

对不起啊老师，我太笨了，是不是我哪里没有操作正确啊？

yjh_27

Sub aa() arr = [a2:a3505] brr = [b2:b5464]  crr = [c2:c49]  For ii = 1 To uboud(crr)         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 [d2:d5464] = brr End Sub

yjh_27

其他模块，相关代码需保留。

amy-0018

yjh_27 发表于 2015-7-11 17:43
其他模块，相关代码需保留。

老师您好！
我按您的指示去过，可是总是提示“缺少end sub”或者其他。
我的步骤是这样的，麻烦您看一下，是否有什么问题。
工具——宏——vba——模板——用户窗体——命令按钮——双击命令按钮——复制代码1/2——点击继续按钮（小三角形），回到excel表格点击命令按钮，提示——编译错误：缺少End Sub。
以下是我尝试的代码
代码1：
Sub aa()
arr = [a2:a3505]
brr = [b2:b5464]
crr = [c2:c49]
For ii = 1 To uboud(crr)
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
[d2:d5464] = brr
End Sub
代码2：
Sub aa()
arr = [a2:a3505]
brr = [b2:b5464]
crr = [c2:c49]
For ii = 1 To uboud(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
[d2:d5464] = brr
End Sub


我也试过再加一个end sub，可是这个提示就是不消失，一直提示着。
是哪里出了错吗？麻烦老师了。很对不起，我这么笨……

yjh_27

手机回复，代码1少了一句: For i = 1 To UBound(brr)      For ii = 1 To

amy-0018

yjh_27 发表于 2015-7-12 17:17
手机回复，代码1少了一句: For i = 1 To UBound(brr)      For ii = 1 To

老师好！您这句话是要加在哪里呢？我的代码2里含这句话的。不过，Fii=1 To后面是不是还有内容pc？
盼复

yjh_27

用代码1。 在For ii行前补 For i代码行

amy-0018

yjh_27 发表于 2015-7-12 17:58
用代码1。 在For ii行前补 For i代码行

老师您好！我按提示，代码改写及excel的提示如下，
代码3
Private Sub CommandButton1_Click()
Sub aa()
arr = [a2:a3505]
brr = [b2:b5464]
crr = [c2:c49]
For i = 1 To UBound(brr)
For ii = 1 To uboud(crr)
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
[d2:d5464] = brr
End Sub

编译错误：缺少end sub


代码4
Private Sub CommandButton1_Click()
arr = [a2:a3505]
brr = [b2:b5464]
crr = [c2:c49]
For i = 1 To UBound(brr)
For ii = 1 To uboud(crr)
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
[d2:d5464] = brr
End Sub
编译错误：子过程或函数未定义


麻烦您了