vba进行大量的文本替换如何优化实现？

喝酒的毛毛虫

采用VBA的方式进行替换文本的时候由于需要替换的数量比较多，需要替换的文本数据成千上万条，一条一个的替换比较麻烦，运行的时间需要比较长，有什么方法可以简单快捷的实现替换文本，而不需要像下面的代码一样逐条去执行？原始代码如下：


Columns("C:C").Select
     Selection.Replace What:="*张三*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*李四*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*王五*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*世界*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*日本*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*欧洲*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*地球*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="*还有很多其他的文本*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

……
……

zldccmx

以上代码简化如下

zldccmx

内置功能应该是最优解法。

a602714819

数量太多的话，把不一样的地方提取出来做二维数组，一样的地方用循环结构。
不会VBA，但是我写一个JSA给你看看，但凡学过一点编程思路都一样，自己照着改吧。
function 复数内置替换(){
        Selection.Replace("张三","金", xlPart, xlByRows, false, false, true, true);
        Selection.Replace("李四","木", xlPart, xlByRows, false, false, true, true);
        Selection.Replace("王五","水", xlPart, xlByRows, false, false, true, true);
        Selection.Replace("世界","火", xlPart, xlByRows, false, false, true, true);
        Selection.Replace("日本","土", xlPart, xlByRows, false, false, true, true);
        Selection.Replace("欧洲","阴", xlPart, xlByRows, false, false, true, true);
        Selection.Replace("地球","阳", xlPart, xlByRows, false, false, true, true);
}
function 数组替换(){
        const a=[
                                ["张三"        ,"金"],
                                ["李四"        ,"木"],
                                ["王五"        ,"水"],
                                ["世界"        ,"火"],
                                ["日本"        ,"土"],
                                ["欧洲"        ,"阴"],
                                ["地球"        ,"阳"]
                        ];
        for (var i=0;i<a.length;i++)
        {
                Selection.Replace(a[i][0],a[i][1], xlPart, xlByRows, false, false, true, true);
        }
}

幼稚园儿童

最近正好学到这里，传个附件看看，当练习题了

tanglf188

在数组后面直接添加就行了，用半角逗号分割，引号标注
    arr = Array("张三", "李四", "王五", "世界")
    For i = 0 To UBound(arr)
        Columns("C:C").Replace What:="*" & arr(i) & "*", Replacement:="", LookAt:=xlPart, ReplaceFormat:=False
    Next