安裝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)
    
    ' 確保選中的是文本而不是空白或其他內(nèi)容
    If Len(selectedText) > 0 Then
        ' 循環(huán)遍歷整個(gè)工作表的每個(gè)單元格
        For Each cell In ActiveSheet.UsedRange
            ' 檢查單元格文本是否與選中的文本相同
            If cell.Text = selectedText Then
                ' 將相同的文本高亮顯示
                cell.Interior.Color = RGB(255, 255, 0) ' 這里使用黃色作為高亮顯示的顏色，可以根據(jù)需要更改顏色
            Else
                ' 清除其他單元格的高亮顯示顏色
                cell.Interior.ColorIndex = xlNone
            End If
        Next cell
    Else
        ' 清除所有單元格的高亮顯示顏色（如果未選中文本）
        ActiveSheet.Cells.Interior.ColorIndex = xlNone
    End If
End Sub