|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 关键字() '子程序 关键字()
Dim r As Long, sta As Byte, le As Byte, rg As Range '定义变量 r为 长整型值,sta为 字节型,le为 字节型,rg为 单元格区域
r = Cells(Rows.Count, 4).End(xlUp).Row ' r=<单元格坐标>行数值,4 )的<末端>方向向上 )的行标
Set rg = Range("d2").Resize(r - 1, 2) '设定rg=<单元格区域>"d2" )的<重调大小>区域r-1,2)
For x = 2 To r Step 2 '设定变量范围为x=2到r步进为2
le = Len(rg.Item(x)) 'le=<字符串长度值> rg的项目x))
If le > 0 Then '如果 le>0则执行
sta = InStr(rg.Item(x - 1), rg.Item(x)) 'sta=<正向判断字符串出现位置> rg的项目x-1), rg的项目x))
rg.Item(x - 1).Characters(Start:=sta, Length:=le).Font.Color = -16776961 ' rg的项目x-1 )的Characters(起始=sta,长度=le )的字体的颜色=-16776961
End If 'If判断过程结束
Next '下一个
End Sub '子程序结束
|
评分
-
1
查看全部评分
-
|