Excel使用vba高亮文本关键词

最新推荐文章于 2023-09-20 17:57:38 发布

无聊的大石头

最新推荐文章于 2023-09-20 17:57:38 发布

阅读量845

点赞数

文章标签： excel vba

本文链接：https://blog.csdn.net/geshi201028/article/details/128727180

版权

这段VBA代码示例展示了如何在Excel中自动查找并高亮特定的文本关键词。用户首先输入要查找的字符串，然后脚本会遍历A1:AZ9999范围内的单元格，找到匹配的关键词并将其颜色设置为红色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Excel使用vba高亮文本关键词

Sub Mydemo()
    Dim c As Range, n, m, l As Integer
    Dim str
    
    'initial set
    Range("A1:AZ9999").Select
    Selection.Font.Color = RGB(0, 0, 0)
    
    str = Application.InputBox("Input:", "My InputBox")
    l = Len(str)
    
    Set c = Cells.Find(What:=str, Lookat:=xlPart)
    c.Activate
    c.Characters(m, l).Font.Color = RGB(0, 0, 0)
          
    'the first area
    For m = 1 To Len(c.Value)
      'When find the specified str,set the color red.
      If Mid(c.Value, m, l) = str Then
        c.Characters(m, l).Font.Color = RGB(255, 0, 0)
      End If
    Next
    
    'the second area to the last area
    For n = 1 To c.CurrentRegion.Count
      Set c = Cells.FindNext(after:=ActiveCell)
        c.Activate
      For m = 1 To Len(c.Value)
        If Mid(c.Value, m, l) = str Then
           c.Characters(m, l).Font.Color = RGB(255, 0, 0)
        End If
      Next
    Next
End Sub