WPS表格里将替换的字符标红

wils
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字符串转为长整型数字,才能设置属性值

海南省
浏览 554
收藏
7
分享
7 +1
1
+1
全部评论 1
 
zha7090
zha7090

创作者俱乐部成员

一看就是高手
· 广东省
回复