本文介绍了一段使用Visual Basic for Applications (VBA) 编写的代码，该代码能够在Excel中自动查找并突出显示包含指定文本 '测试场景' 的单元格。
Dim r As Range
Dim i As Integer
For Each r In ActiveSheet.UsedRange
i = 0
Do While InStr(i + 1, r.Value, "测试场景") > 0
i = InStr(i + 1, r.Value, "测试场景")
r.Select
ActiveCell.Characters(Start:=i, Length:=4).Font.Bold = True
Loop
Next
End Sub
Dim i As Integer
For Each r In ActiveSheet.UsedRange
i = 0
Do While InStr(i + 1, r.Value, "测试场景") > 0
i = InStr(i + 1, r.Value, "测试场景")
r.Select
ActiveCell.Characters(Start:=i, Length:=4).Font.Bold = True
Loop
Next
End Sub
扫一扫
4289
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
