首页 › 实战技术 › 查找A列，找到字体加红VBA

nnsea 发表于 2024-2-13 10:11:30

查找A列，找到字体加红VBA

Sub HighlightKeyword()
    Dim searchRange As Range
    Dim searchValue As String
    Dim cell As Range
      
    ' 设置搜索范围为A列
    Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A:A")
      
    ' 弹窗录入关键词
    searchValue = InputBox("请输入要查找的关键词：")
      
    ' 如果关键词不为空，则进行查找
    If searchValue <> "" Then
      ' 在A列中查找关键词
      For Each cell In searchRange
            If cell.Value = searchValue Then
                ' 如果找到，字体加红
                cell.Font.Color = RGB(255, 0, 0)
            End If
      Next cell
    End If
End Sub

查看完整版本: 查找A列，找到字体加红VBA