红包10元求两列数据匹配代码

ipsen

yjh_27 发表于 2019-3-21 11:08
是中文字符数。
参数含义见代码前部的注释。一般取默认值，如关注的关键字长，取关键字长

除了原sheet的基础上修改，其它无论怎么弄函数都不能用，大神帮看看。

yjh_27

ipsen 发表于 2019-3-21 15:06
除了原sheet的基础上修改，其它无论怎么弄函数都不能用，大神帮看看。

参数不支持空，按实际选择，不要选整列。

ipsen

yjh_27 发表于 2019-3-21 16:08
参数不支持空，按实际选择，不要选整列。

问题解决，大神的智慧极大提高了生产效率！！！感谢感谢！！！

ychh_wy

'ychh_wy
Function 字符串匹配(字符串1, 字符串2)
    If Len(字符串1) = 0 Or Len(字符串2) = 0 Then 字符串匹配 = "未匹配上": Exit Function
    If Len(字符串1) >= Len(字符串2) Then
        X = 字符串1: C = 字符串2
        Else
        X = 字符串2: C = 字符串1
    End If
   
    For N = 1 To Len(X)
        If Mid(X, N, 1) Like "[()]" = False Then C = Replace(C, Mid(X, N, 1), "", 1)
    Next
    If C = "" Or C Like "(*)" Then
        字符串匹配 = "匹配上"
        ElseIf C Like "[省市区县乡镇]" Then
        字符串匹配 = "匹配上"
        Else
        字符串匹配 = "待确定"
    End If
End Function

ipsen

ychh_wy 发表于 2019-3-22 10:38
'ychh_wy
Function 字符串匹配(字符串1, 字符串2)
    If Len(字符串1) = 0 Or Len(字符串2) = 0 Then 字 ...

没有看太懂，这样是字符串的长度进行匹配吗？