ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1331|回复: 5

哪位老师帮忙,谢谢

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-1-6 21:13 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
工作簿中表1的单位名称为简称,要求在表2的单位名称(全称)中找到对应的单位代码,填入表1的B例,不知哪位老师能帮我写出宏的代码,或给个思路,谢谢

Book1.rar

1.5 KB, 下载次数: 22

TA的精华主题

TA的得分主题

发表于 2013-1-6 22:01 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
=LOOKUP(1,0/(FIND(A2,Sheet2!$A$2:$A$10)),Sheet2!$B$2:$B$10)

TA的精华主题

TA的得分主题

发表于 2013-1-6 22:08 | 显示全部楼层
这个基本上是不可能有完美解的。
所谓起简称大都随心所欲,人脑可以理解就行了。机器分析则必须有类似教条的规则。
之所以要用单位编码就是要用唯一的编码来对应公司,以后用编码来检索,而不是用易混淆的公司名称特别是所谓的简称。
试作了一下,仅能将简称是公司全称的一部分情况筛选出来并正确填写。比如例子里的第一条就填不过来。
看了一下,你的例子都是对应的,如果都已经对应好了,那也用不着什么程序了,直接把相关列复制过来就可以了。我的例子程序是在以下假设条件下工作的:
1.假设两个表有相同的记录数
2. 两个表的数据记录不对应,当然对应也是工作的(如果对应直接拷比任何程序都好)。
3. A 表简称是B 表全称的一部分

对于不符合程序范围的记录,如果比较少,就可以人脑分析手动复制过来了。
上面程序不能处理重名问题,比如简称“水泥" 全称有“光明水泥厂”,“大地水泥厂" 那么这个简称总是会对应第一个“光明水泥厂”的全称名称记录的。

Book1.zip

10 KB, 下载次数: 49

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-1-7 07:03 | 显示全部楼层
诚谢上面两个老师,我试试,有了结果再回复。
我的需求中,简称是这样的,发贴时没有说明,简称里必有两个字包含在全称里,在此说明一下,但包含的位置不固定。比较麻烦

TA的精华主题

TA的得分主题

发表于 2013-1-7 15:44 | 显示全部楼层
sysz_wy9910 发表于 2013-1-7 07:03
诚谢上面两个老师,我试试,有了结果再回复。
我的需求中,简称是这样的,发贴时没有说明,简称里必有两个 ...

简称必有2个字是全称里的,但是位置不固定。这种条件是无法实现的,我的程序和楼上的朋友的函数作用其实是一样的都是判断简称字符串是否为全称的一部分。
比如简称里有中国,北京之类的名词,机器是无法判断这些词是不重要的,而天元才是关键词,而用天元作为简称的关键词进行检索。如何判断某个词是否是关键词这已经是某大公司的课题了,可以具体参考一下吴军博士的大作《数学之美》里关于谷歌公司用统计学概率法做词汇分析的概述部分。
所以当以上方法无法实现你的所有需求的话,剩余简称部分的代码只有手动复制过来了。当然也可以改简称,比如那个天元有限公司,改成天元就没问题了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-1-9 19:57 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
感谢各位老师,诚如hehex 老师所说,因为这几天工作忙没有及时回复,hehex 老师所作的VBA程序已经很不错了,再次感谢
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-23 13:28 , Processed in 0.045196 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表