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

tom2228 · 发表于 2021-1-3 16:53

请接收我的膝盖

libin890 · 发表于 2021-1-3 19:02

谢谢分享学习到了

qclx2018 · 发表于 2021-1-14 21:37

学习中，留贴，感谢

comeonllg · 发表于 2021-3-31 19:05

http://club.excelhome.net/thread-1580145-1-1.html
求大佬帮忙看看这个相似问题

yjh_27 · 发表于 2021-11-18 14:23

本帖最后由 yjh_27 于 2021-11-18 16:47 编辑

补充拼音
来源
跪求Excel 中文名转拼音格式如下：杨一二（Yang Yier）8L
https://club.excelhome.net/thread-1606588-1-1.html
(出处: ExcelHome技术论坛)

陈大可 · 发表于 2021-11-26 19:08

为什么我一打开就显示“参数不可选”

gxb0717 · 发表于 2022-1-11 15:02

好东西，收藏了

eccgrid · 发表于 2022-10-10 23:56

楼主，请问A列和F列进行模糊匹配，然后对匹配结果取匹配度最高的值的单元格可以用你的函数实现吗？

比如A2的值是拉布拉多 F5的值是拉布拉多犬，然后这俩匹配程度是F列整列里最高的，那么用A2匹配F列返回来就是F5。我用下面的代码，一直出错“要求对象”，请多多指教

Sub check_point_helper()
Dim arra, arrb, arrc
Dim ss

RA = Range("A" & Rows.Count).End(xlUp).Row

arra = ThisWorkbook.Sheets(4).Range("A2:A" & RA)

'发过来的字段
'arra = ThisWorkbook.Sheets(4).Range("A1:A" & ThisWorkbook.Sheets(4).Range("A65536").End(xlUp).Row)

RF = ThisWorkbook.Sheets(4).Range("F" & Rows.Count).End(xlUp).Row
arrb = ThisWorkbook.Sheets(4).Range("F2:F" & RF)

ss = FuzzyLookup(find_text:=arrb(1, 1), within_text:=arra, Debar_text:="", n:=2, m:=2, mode:=6, mode2:=40, Case_insensitive:=False, NoRepeat:=False)

'ss = FuzzyLookup(arrb(1, 1), arra, "", 2, 2, 4, 40, False, False)

End Sub

blackttea1 · 发表于 2022-10-11 17:00

好东西，收藏了

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

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

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