VBA替换问题求助

2016-08-01 03:28:18 280 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

EXCEL VBA 使用正则表达式清洗替换数据在EXCEL表内遇到有规律性的数据需要提取或者替换时，比如在数据中提取时间，身份证号码等，EXCEL内自带的查找替换就难以实现，我们可以利用VBA适用正则表达式去对数据进行匹配。什么是正则表达式？正则表达式，又称规则表达式。（英语：Regular Expression，在代码中常简写为regex、regexp或RE），计算机科学的一个概念。正则表达式通常被用来检索、替换那些符合某个模式(规... 阅读详情

http://bbs.csdn.net/topics/391993653
office那边发过了，这边简要描述一下
Sub 按表替换()
'首先引用ms excel
'运行前关闭所有excel程序
Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer
Set ex = New Excel.Application
Set boo = ex.Workbooks.Open("E:\替换表.xls")
ex.Visible = False '设置EXCEL对象可见（或不可见）
Set shee = boo.Worksheets(1) '设置活动工作表
With shee
For i = 1 To .Range("b65536").End(xlUp).Row
ActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '将excelA列替换为B列内容
Next
End With
boo.Close
ex.Quit
Set boo = Nothing
Set ex = Nothing
End Sub
替换的时候可能有误判断，比如把banana当中的an单独提取出来翻译成“一个”，虽然我可以直接把an踢出去手动翻译，但是感觉还是不好，求解这块有什么解决办法么

...全文