替换多个不同的关键词为空用vba

dong130

A列有数据（A列有很多这里列举个别）中，把包含C列中的关键词（C列要被替换的关键词数量不定）全部切换为空，在原来的A列上直接替换掉（结果然后F列所示）



该如何使用vba实现，数据太多了，一个一个替换太慢了

cnmlgb9998

借楼练一下PQ 。。。。。。


是 这个效果？

^星^

工作簿4.zip (13.35 KB, 下载次数: 7)

2024-6-5 00:39 上传

点击文件名下载附件

ykcbf1100

字典来一个。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.5
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 3).End(3).Row
   
4.     For i = 2 To r
   
5.         s = Cells(i, 3)
   
6.         d(s) = ""
   
7.     Next
   
8.     r = Cells(Rows.Count, 1).End(3).Row
   
9.     For i = 2 To r
   
10.         s = Cells(i, 1).Value
    
11.         For Each k In d.keys
    
12.             If InStr(s, k) Then
    
13.                 Cells(i, 1) = Replace(s, k, "")
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

quqiyuan

供参考

LIUZHU

参与下，效果展现

LIUZHU

JSA代码，供参考

1. function 批量替换(){
   
2.         const regex=new RegExp(Range("c2:c6").Value2.map(([x])=>x).join("|"),"g");
   
3.         const arr=Range("a1:a19").Value2.map(([x])=>[x.replace(regex,"")]);
   
4.         Range("h1").Resize(arr.length,arr[0].length).Value2=arr;
   
5. }

复制代码

LIUZHU

WPS打开测试，只适合WPS

dong130

LIUZHU 发表于 2024-6-5 10:26
WPS打开测试，只适合WPS

这个太神奇了，代码在哪里