excel中查找所有表格中匹配的文本，并仅将对应的文本染色

最新推荐文章于 2024-07-10 22:11:08 发布

学无止境LL

最新推荐文章于 2024-07-10 22:11:08 发布

阅读量97

点赞数 2

文章标签： excel

本文链接：https://blog.csdn.net/weixin_44572041/article/details/139869833

版权

VBA代码

Sub ChangeColorOfTest()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置搜索范围为当前工作表的所有单元格
        Set rng = ws.UsedRange
        
        ' 遍历每个单元格
        For Each cell In rng
            ' 如果单元格包含"测试"，则将该单元格中"测试"的颜色更改为红色
            If InStr(cell.Value, "肺部CT") > 0 Then
                cell.Characters(Start:=InStr(cell.Value, "肺部CT"), Length:=Len("肺部CT")).Font.Color = RGB(255, 0, 0)
            End If
        Next cell
    Next ws
End Sub