查看: 5688|回复: 19
根据简称查询全称
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴站内采编:
署名作者: 嘉昆2011
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
引用作品: http://club.excelhome.net/thread--1.html；http://club.excelhome.net/thread--1.html
适用版本: &
语言环境: 英文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
函数方法参考EH mschenshan帖子 4楼http://club.excelhome.net/thread--1.html复制代码VBA（正则+数组）方法参考EH alzeng帖子 3楼http://club.excelhome.net/thread--1.html复制代码问题陈述：
在统计汇总时，由于前期数据设置不规范，缺少数据有效性设置，经常会遇到数据源不同而导致某些数据名称不同（简称中以不连续的关键字来代表全称）。
FullName.png (118.44 KB, 下载次数: 5)
01:06 上传
1，函数法=INDEX(FullName!A$2:A$52,MODE(ISNUMBER(FIND(MID(A2,COLUMN($1:$1),1),FullName!A$2:A$52))*ROW($1:$51)))复制代码算法及特点：适用于全称不太长，总体字符数不太多的情况（主要是受COLUMN($1:$1)参数限制）；这种算法取决于全称的大小/多少：全称越少，算法越快，越精确；反之，越慢，越易误判。
Mid：对简称逐个字符提取；Find：在各全称中出现的位置逐一核对标记；Isnumber：转化为布尔值；*Row：得到全称组中出现的各频率数；Mode：找出频率最高的全称数，即匹配度最高。
2，VBA（正则+数组）Function RegExp(StrExp, RegRule)
& & With CreateObject(&vbscript.regexp&)
& && &&&.Global = True
& && &&&.Pattern = RegRule
& && &&&RegExp = .Replace(StrExp, &*$1&)
& & End With
End Function
Sub FindFullName()
Dim ArrFull, ArrAbb
Range(&C2&, [C2].End(4)(1, 2)).ClearContents
ArrFull = Sheet1.Range(&A2&, Sheet1.[A65536].End(3)(1, 2))
ArrAbb = Range(&A2&, [A65536].End(3))
ReDim Arr(1 To UBound(ArrAbb), 1 To 2)
& & For i = 1 To UBound(ArrAbb)
& && &&&Arr(i, 1) = RegExp(ArrAbb(i, 1), &(\S)&)
& && &&&For j = 1 To UBound(ArrFull)
& && && && &If ArrFull(j, 1) Like Arr(i, 1) & &*& Then
& && && && && & Arr(i, 1) = ArrFull(j, 1)
& && && && && & Arr(i, 2) = ArrFull(j, 2)
& && && && &End If
& && &&&Next j
& & Next i
[C2].Resize(i - 1, 2) = Arr
End Sub复制代码算法及特点：在每一个字符串中以每个非空字符串“\S”为一个单位&()&，替换为本身加一个“*”前缀的字符&*$1&；其后通过Like来匹配。
其他参考文献（字典+数组）：http://www.exceltip.net/forum.php?mod=viewthread&tid=21808复制代码附件：
(11.59 KB, 下载次数: 85)
01:36 上传
点击文件名下载附件
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 117, 距离下一级还需 133 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
好想学习，只是基础太差了
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 67, 距离下一级还需 183 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
谢谢高位大佬，你们的支持和帮助是我学习的不竭动力。
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 67, 距离下一级还需 183 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 hbslj 于
08:12 编辑
嘉昆2011 ，您好，能够模糊匹配对我来说是太有用了。非常感谢。是不是把代码添加对下边的对话框里，点击vba中的怎么自动生成数据啊。请详细介绍一下操作过程好吗？我刚接触vba。
VBA正则，点击所下载附件中的按钮即可刷新得到结果（或可以将图中蓝色部分结果先清除掉，再单击按钮就看到效果了）。&
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
hbslj 发表于
嘉昆2011 ，您好，能够模糊匹配对我来说是太有用了。非常感谢。是不是把代码添加对下边的对话框里，点击vba ...
VBA正则，点击所下载附件中的按钮即可刷新得到结果（或可以将图中蓝色部分结果先清除掉，再单击按钮就看到效果了）。
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 67, 距离下一级还需 183 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
5楼的意思我清楚。谢谢您。我是想以后怎么在工作中灵活使用，比如有了vba代码，我略作修改后，怎么复制粘贴到运行框中，怎么能够自动生成，想学一下操作过程。
保存为模块
以后有用就直接加载模块，注意前期引用或是后期绑定，修改相应算法，算法有了，其他就好说了。&
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
hbslj 发表于
5楼的意思我清楚。谢谢您。我是想以后怎么在工作中灵活使用，比如有了vba代码，我略作修改后，怎么复制粘贴 ...
保存为模块
以后有用就直接加载模块，注意前期引用或是后期绑定，修改相应算法，算法有了，其他就好说了。
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 67, 距离下一级还需 183 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 hbslj 于
22:35 编辑
老大您好，请讲的详细点好吗，我是vba刚刚接触者，提的问题可能比较幼稚，还请见谅。我的意思是，将来可能有两表，两表的分别有简称和全称，但两表各有若干的列，需要按简称和全称去匹配。因为该实例中的vba程序仅限于2列，如果两表各有多列，如何去匹配，所以还要请教您的是，将来有了vba代码，如何灵活利用的问题。非常感谢。能加你qq吗？我的qq ，希望您不吝赐救。现上传新的匹配格式，请帮忙。
22:35 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
14.46 KB, 下载次数: 11, 下载积分: 消费券 -5 Ti币
修改相应输出数组维度即可。我们队有个Q群：5072148。开心队。&
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 67, 距离下一级还需 183 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
愁啊，请关注。
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 嘉昆2011 于
14:09 编辑
hbslj 发表于
老大您好，请讲的详细点好吗，我是vba刚刚接触者，提的问题可能比较幼稚，还请见谅。我的意思是， ...
修改相应输出数组维度即可。我们队有个Q群：。开心队。
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byThe page is temporarily unavailable
nginx error!
The page you are looking for is temporarily unavailable.
Please try again later.
Website Administrator
Something has triggered an error on your
This is the default error page for
nginx that is distributed with
It is located
/usr/share/nginx/html/50x.html
You should customize this error page for your own
site or edit the error_page directive in
the nginx configuration file
/etc/nginx/nginx.conf.}