求一个vba，能批量把“孙悟空”“唐僧”“沙和尚”白龙马、白骨精替换成“西游记”...

sunfei00426

新建 XLSX 工作表.zip (9 KB, 下载次数: 14)

2024-11-11 22:16 上传

点击文件名下载附件

求一个vba，能批量把“孙悟空”“唐僧”“沙和尚”白龙马、白骨精替换成“西游记”，把刘备、赵云、张飞、孙权替换成“三国”，把鲁智深、李逵、我有用替换成“水浒”

shiruiqiang

字典，字典的值就是对应的文字

无关岁月

1. =REGEXREPLACE(A2,"(孙悟空|唐僧|沙和尚|白龙马|白骨精)|(刘备|赵云|张飞|孙权)|(鲁智深|李逵|我有用|武松)","${1:+西游记}${2:+三国}${3:+水浒}")

复制代码

咔咔乱坠

wps函数，参与一下

1. =SUBSTITUTES(A2:A14,{"孙悟空","唐僧","沙和尚","白龙马","白骨精";"刘备","赵云","张飞","孙权",0;"鲁智深","李逵","我有用",0,0},{"西游记";"三国";"水浒"})

复制代码

wps&office通用版

1. =MAP(A2:A14,LAMBDA(x,FILTER({"西游记";"三国";"水浒"},BYROW(N(x={"孙悟空","唐僧","沙和尚","白龙马","白骨精";"刘备","赵云","张飞","孙权",0;"鲁智深","李逵","我有用",0,0}),SUM),x)))

复制代码

飞天篮球猪

无关岁月 发表于 2024-11-11 22:41

大佬，这个正则替换的三参还有什么写法，能运算吗？
比如把a1b2c3中的数字扩大两倍变成a2b4c6，三参能实现吗？

无关岁月

飞天篮球猪 发表于 2024-11-12 08:11
大佬，这个正则替换的三参还有什么写法，能运算吗？
比如把a1b2c3中的数字扩大两倍变成a2b4c6，三参能实 ...

正则没有计算功能哦

usedrange

。。。。。。。

飞天篮球猪

无关岁月 发表于 2024-11-12 08:43
正则没有计算功能哦

感谢大佬分享3参使用方法："${1:+西游记}${2:+三国}${3:+水浒}"

无关岁月

飞天篮球猪 发表于 2024-11-12 09:03
感谢大佬分享3参使用方法："${1:+西游记}${2:+三国}${3:+水浒}"

不必客气，这个能查到的哦

飞天篮球猪

无关岁月 发表于 2024-11-12 09:30
不必客气，这个能查到的哦

感谢，正则太多flavor了，玩不过来