使用VBA程序按特定要求替换某列中所有含特定字符的单元格内容

一颦一笑

无关岁月

求助.7z (15.41 KB, 下载次数: 5)

2024-3-26 14:22 上传

点击文件名下载附件

^星^

求助.zip (13.68 KB, 下载次数: 8)

2024-3-26 14:22 上传

点击文件名下载附件

swl4561255

1. Sub test()
   
2. ar = [A1].End(4).Row
   
3. For i = 2 To ar
   
4.   n = InStr(Range("A" & i), "礼包")
   
5.   If n > 0 Then
   
6.     Range("A" & i) = Replace(Range("A" & i), Mid(Range("A" & i), n, 9), "礼包1")
   
7.   End If
   
8. Next
   
9. End Sub
   

复制代码

gwjkkkkk

正则法，三楼正解。。。

cnmlgb9998

用PQ，一句代码的事，还能即时更新，不香？？？？？？？？？？？？？？？

cnmlgb9998

用PQ哪里还用得着 循环？ 正则？ 就一句代码解决的事。且 源数据量增减变化 也能更新

limonet

公式：
1、=IF(ISERR(FIND("礼包",A2)),A2,REPLACE(A2,FIND("礼包",A2),9,"礼包1"))
2、=MAP(A2:A14,LAMBDA(x,IF(ISERR(FIND("礼包",x)),x,REPLACE(x,FIND("礼包",x)+2,9,1))))

一颦一笑

cnmlgb9998 发表于 2024-3-26 19:24
用PQ，一句代码的事，还能即时更新，不香？？？？？？？？？？？？？？？

弱弱的问一下,PQ是什么？

limonet

一颦一笑 发表于 2024-3-26 19:41
弱弱的问一下,PQ是什么？

power query，office2016及以上版本自带。