WPS表格里将替换的字符标红
wils
创作者俱乐部成员
论坛里有朋友问:如何批量替换WPS表格单元格里的字符串,并将替换的内容标红
想了半天,还是得用宏
如图,将sd替换成xyz,并标红
代码如下:
👋 | function tt() { let x = 'sd' let y = 'xyz' for (let i of Range('A1:A4').Cells) { let arr = i.Value2.split(x) if (arr.length > 1) { i.Value2 = arr.join(y) let n = 1 arr.pop() for (let j of arr) { n += j.length i.Characters(n, y.length).Font.Color = 255 n += y.length } } } } |
写的比较啰嗦,大概意思是
先定义原字符串和新字符串
然后对需要替换的范围循环
将单元格按原字符串分隔成数组
将单元格的值设为数组按新字符串合并
并找到每一处合并的位置,将字符颜色设为红色
在这里,颜色要用parseInt('00ff00', 16)从RGB字符串转为长整型数字,才能设置属性值
创作者俱乐部成员