【已解决】两个工作簿之间文本的模糊匹配和替换

yizhitree

附件上有两个工作簿，一个是被替换工作簿，一个是对照查找工作簿

被替换工作簿（A）里面登记着一些单位的简称，而对照查找工作簿登记（B）的是全称。

现在我想达到这样的目的，两个工作簿进行模糊匹配，比如两个工作簿某个单元格都含“佰信”的字眼，证明它们是同一个单位，匹配上了，A工作簿里面的名称就由简称改成全称（即B工作簿中登记的文本）。

怎么做呢？？

[ 本帖最后由 yizhitree 于 2010-7-18 15:37 编辑 ]

uug

简称中有一部分单位名称在全称中存在不连续的情况，不能解决彻底问题，望高人指点……

alzeng

以下代码在“被替换工作簿”中使用：

1. 
   
2. Sub NewDt()
   
3.     Dim Oj As Object
   
4.     Dim Arr, k%, Ary, i%
   
5. 
   
6.     With GetObject(ThisWorkbook.Path & "\对照查找工作簿.xls")
   
7.         Ary = .Sheets(1).Range("A1", .Sheets(1).[A65536].End(3))
   
8.         .Close
   
9.     End With
   
10.     Arr = Range("A1", [A65536].End(3)(1, 2))
    
11.     Set Oj = CreateObject("ScriptControl"): Oj.Language = "JScript"
    
12.     Oj.eval "function gets(str){return str.replace(/(\S{1})/g,'*$1')}"
    
13.     For k = 1 To UBound(Arr)
    
14.         Arr(k, 2) = Oj.codeobject.gets(Arr(k, 1))
    
15.         For i = 1 To UBound(Ary)
    
16.             If Ary(i, 1) Like Arr(k, 2) & "*" Then Arr(k, 2) = Ary(i, 1)
    
17.         Next
    
18.     Next
    
19.     [A1].Resize(k - 1, 2) = Arr
    
20. 
    
21. End Sub
    

复制代码

alzeng

匹配数据.rar (14.92 KB, 下载次数: 458)

2010-7-16 09:12 上传

点击文件名下载附件

alzeng

hnyylx

原帖由 alzeng 于 2010-7-18 08:50 发表
论坛有这样的功能，查看“个人资料”→“搜索回复”，即可见回复帖子列表。

我怎么也没找到你上面说的“个人资料”→“搜索回复”呀，能再详细点说说吗？麻烦您啦！

hnyylx

原帖由 alzeng 于 2010-7-16 09:11 发表
以下代码在“被替换工作簿”中使用：
Sub NewDt()
    Dim Oj As Object
    Dim Arr, k%, Ary, i%

    With GetObject(ThisWorkbook.Path & "\对照查找工作簿.xls")
        Ary = .Sheets(1).Range("A1", . ...

一念大师：您真的是功力高深啊，能否把这个东东帮我解释下：{return str.replace(/(\S{1})/g,'*$1')} ？有点像正则表达式哦！

alzeng

是正则表达式，将每个字前加上一个通配符* 。

hnyylx

原帖由 alzeng 于 2010-7-16 22:18 发表
是正则表达式，将每个字前加上一个通配符* 。

谢谢一念大师的回复，我全部看懂了您写的这个包含正则表达式的小程序，现在唯独对这个正则部分的内容：str.replace(/(\S{1})/g,'*$1')不太了解，因为本人最近才接触正则，希望大师您能否更详细地帮我分析下这个正则代码，比如，“/”这个代表什么意思？/g这个代表什么意思？(\S{1})这个我理解应该是每个非空字符串对吧？*$1是不是代表替换时在每个非空字符前增加1个“*”？烦请大师继续给与赐教，致谢！

alzeng

在正则的应用方面，我也几乎是新手，说出来怕要误人子弟，^_^
两个/之间是正则表达式的条件变量内容，()界定一个条件区域变量的范围，这个范围用$1替代，如果有多个区域依次增加序列号。g即Global，使用全局变量。
具体到这个表达式的含义是：在字串str中以每个非空字符为单位，替换为其本身加一个*前缀。如字串ABCD用这个函数输出为*A*B*C*D 。