雷同字符提取函数自定义函数

yjh_27 · 发表于 2013-5-12 00:24

为
EXCEL 模糊匹配

增加忽略大小写参数

yjh_27 · 发表于 2013-5-19 18:32

本帖最后由 yjh_27 于 2013-5-20 23:25 编辑

重要升级。

yjh_27 · 发表于 2013-8-5 22:57

本帖最后由 yjh_27 于 2013-8-7 21:06 编辑

应用实例
高难度求援http://club.excelhome.net/thread-1043464-1-1.html
·   模糊匹配的问题。

'****************************************************************
'功能：模糊查找
'函数名：  FuzzyLookup
'参数1： find_text 查找字符
'参数2： within_text 在此范围查找
'参数3： Debar_text  排除的字符（不参与比较的字符），可省略，默认为：""
'参数4： n          连续n字符开始计数，可省略，默认为：2
'参数5： m          计数m 及以上找到，可省略，默认为：2
'参数6： mode       输出方式，可省略，默认为：4
'                   为0时，雷同度（匹配度）
'                   为1时，雷同字数
'                   为2时，雷同字，分隔符="_"
'                   为3时，位置数字(或单元格地址),雷同度相同时：分隔符=","
'                   为30时，位置数字。雷同度相同时：返回第一个
'                   为4时，字符
'                   为5时，位置数字&字符
'                   为6时，位置数字&雷同度&字符
'                   为7时，位置数字&雷同字数&字符
'                   为正时，雷同度相同时：分隔符="|"
'                   为负时，雷同度相同时：分隔符=回车符
'参数7： mode2    雷同度模式，可省略，默认为：40，
'                   为30时，雷同度基准：第一参数，数字型
'                   为40时，雷同度基准：二参数均值，数字型
'                   为50时，雷同度基准：第一二参数较长者，数字型
'                   为60时，雷同度基准：第一二参数较短者，数字型
'参数8： Case_insensitive    为True时,忽略大小写。可省略，默认为：False
'参数9： NoRepeat 为True时,无重复，within_text只匹配一次。可省略，默认为： False
'返回值：  一个数字型：雷同度相同时：返回第一个
'       或一个字符型：雷同度相同时："|"分隔
'使用方法：arr = FuzzyLookup(A, B,,4,6)

yjh_27 · 发表于 2013-9-9 23:34

借鉴
·   数据模糊匹配或相似度匹配函数公式实现及思路解析
加权

改写

'****************************************************************
'功能：模糊查找
'函数名：  FuzzyLookup
'参数1： find_text 查找字符
'参数2： within_text 在此范围查找
'参数3： word_segmentation  within_text的已知中文分词，可省略，默认为：""
'参数4： n          连续n字符开始计数，可省略，默认为：2
'参数5： m          计数m 及以上找到，可省略，默认为：2
'参数6： mode       输出方式，可省略，默认为：4
'                   为0时，雷同强度（匹配度）
'                   为1时，雷同字数
'                   为2时，雷同字，分隔符="_"
'                   为3时，位置数字(或单元格地址),分隔符=","
'                   为30时，位置数字。仅返回第一个
'                   为4时，字符
'                   为34时，位置数字&字符
'                   为304时，位置数字&雷强同度&字符
'                   为314时，位置数字&雷同字数&字符
'                   为正时，雷同度相同时：分隔符="|"
'                   为负时，雷同度相同时：分隔符=回车符
'参数7： intensity 雷同强度，0～1。可省略，默认为：0.8，
'                   为>n时，输出强度最高的第n个(n>1,1<n<2时第一个)
'                   为1时，输出强度最高的所有结果
'                   为0.8时，输出>=80%最高强度的结果
'                   为0时，输出所有匹配结果
'参数8： Case_insensitive    为True时,忽略大小写。可省略，默认为：False
'参数9： NoRepeat 为True时,无重复，within_text只匹配一次。可省略，默认为： True
'返回值：  一个数字型：雷同度相同时：返回第一个
'       或一个字符型：雷同度相同时："|"分隔
'使用方法：arr = FuzzyLookup(A, B,,4,6)

yjh_27 · 发表于 2013-10-13 14:26

应用
模糊查询并替换的问题 15L

xinghaifuyun · 发表于 2013-11-15 22:09

谢谢分享,非常好的函数.

yjh_27 · 发表于 2014-2-21 11:12

本帖最后由 yjh_27 于 2014-2-23 09:31 编辑

改进排序。提速。

wss0002 · 发表于 2014-3-11 00:00

赞一个，谢谢分享

@四季者@ · 发表于 2014-3-21 10:26

谢谢分享！

yjh_27 · 发表于 2014-3-22 23:29

增加提取多个字符串中相同部分

题目来源：

如何用VBA提取多个字符串中相同部分
http://club.excelhome.net/thread-659723-1-1.html

补充内容 (2015-6-17 21:34):
提取两个字符串中最大相同部分的字符串。
http://club.excelhome.net/thread-1212151-1-1.html
(出处: ExcelHome技术论坛)

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

[原创] 雷同字符提取函数 自定义函数

[原创] 雷同字符提取函数自定义函数