金山wps VBA宏代码 Excel表格中 鼠标选中 相同字符高亮

安装vba 宏 插件 Visual Basic for Application 

粘贴代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim selectedText As String
    Dim cell As Range
    
    ' 获取选中单元格的文本
    selectedText = Trim(Target.Text)
    
    ' 确保选中的是文本而不是空白或其他内容
    If Len(selectedText) > 0 Then
        ' 循环遍历整个工作表的每个单元格
        For Each cell In ActiveSheet.UsedRange
            ' 检查单元格文本是否与选中的文本相同
            If cell.Text = selectedText Then
                ' 将相同的文本高亮显示
                cell.Interior.Color = RGB(255, 255, 0) ' 这里使用黄色作为高亮显示的颜色，可以根据需要更改颜色
            Else
                ' 清除其他单元格的高亮显示颜色
                cell.Interior.ColorIndex = xlNone
            End If
        Next cell
    Else
        ' 清除所有单元格的高亮显示颜色（如果未选中文本）
        ActiveSheet.Cells.Interior.ColorIndex = xlNone
    End If
End Sub