如何提高vba替换效率

sqhsqhli

我们知道，1替换成2,3替换成4，这样要在全文中查找一遍，假如这样的替换要进行很多次，如不同很多错别字的查找替换，如何提高vba替换效率呢？谁能给个代码？

szqhb

请参考http://club.excelhome.net/viewth ... p;page=1#pid4481199的4楼
Sub 运行此宏进行下面的替换()
     Call 循环查找并替换1
   Call 循环查找并替换2
   Call 循环查找并替换3
'…………………………
End Sub

'查找与替换部分改为，根据需要复制
Sub 循环查找并替换1()
Dim I As Integer '循环执行
For I = 1 To 100 '假设有100个，循环执行100次
    ' 查找并替换
  Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "AAAA" '在此处修改要查找的内容
        .Replacement.Text = "BBBB" '在此处修改将要替换的内容
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .CorrectHangulEndings = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Next I
End Sub

[ 本帖最后由 szqhb 于 2011-1-25 23:02 编辑 ]

sqhsqhli

感谢楼上回答我的问题。但有点跑题了。你用call调用反而降低效能，另外for语句用的不好，不知道具体数量应该用for each。
我的问题是有一篇文章，假如我要找出错别字并替换为正确的（如：我门——我们，vab——vba，。。。。），当定义要找到的错别字数量上千时，查找替换运行速度就会很慢。原因是找每个错别字都要遍历全文一次，而不能同时“记住”所有错别字的样子，只执行一次。针对于此，你有什么好建议？另外也盼望高人指点，查找的效率是不是比替换高？如果是，可不可以先找到然后记住错别字，再执行替换？

sqhsqhli

另附一二三编辑我的代码，请批评指正。(从主程序上截取的，没有整理)：
Arr1 = Array("一、", "二、", "三、", "四、", "五、", "六、", "七、", "八、", "九、", "十、", "十一、", "十二、", "十三、", "十四、", "十五、", "十六、", "十七、", "十八、", "十九、", "二十、")
For zwd = 1 To ActiveDocument.Range(0, ActiveDocument.Range.End).Paragraphs.Count '对正文全文段落进行循环
With ActiveDocument.Paragraphs(zwd).Range
If Len(ActiveDocument.Paragraphs(zwd).Range) > 4 Then'小于4个字符就不排了
If UBound(Arr1) <> UBound(Filter(Arr1, ActiveDocument.Range(.Start, .Start + 2).Text, False)) Or UBound(Arr1) <> UBound(Filter(Arr1, ActiveDocument.Range(.Start, .Start + 3).Text, False)) Then
.Sentences(1).Font.Name = ？？？？？？？？？？？？？？
.Sentences(1).Font.Size = ？？？？？？？？？？？？？？     
.Sentences(1).Font.Bold = ？？？？？？？？？？？？？？
end if
end if
end with
next

[ 本帖最后由 sqhsqhli 于 2011-1-26 14:36 编辑 ]