Excel 检查是否存在更多输入

我的工作表中有24列30行。如何检查某些输入是否不止一次，以及如何使它们突出？

如果您只想通过更改格式找到重复的单元格，请运行以下短宏：

Sub DuplicateFinder()
    Dim r As Range, Mesage As String
    Dim rBig As Range
    ActiveSheet.UsedRange
    Set rBig = ActiveSheet.UsedRange
    Mesage = ""
    For Each r In rBig
        If r.Value <> "" Then
            If Application.WorksheetFunction.CountIf(rBig, r) > 1 Then
                Mesage = Mesage & vbCrLf & r.Address(0, 0)
            End If
        End If
    Next r

    If Mesage = "" Then
        MsgBox "no duplicates"
    Else
        MsgBox Mesage
    End If
End Sub

Sub-DuplicateFinder（）
尺寸r作为范围，台面作为字符串
暗rBig As范围
ActiveSheet.UsedRange
设置rBig=ActiveSheet.UsedRange
Mesage=“”
对于rBig中的每个r
如果r.值为“”，则
如果Application.WorksheetFunction.CountIf（rBig，r）>1，则
Mesage=Mesage&vbCrLf&r.Address（0,0）
如果结束
如果结束
下一个r
如果Mesage=”“，则
MsgBox“无重复项”
其他的
MsgBox台面
如果结束
端接头

如何将其应用于公式？我所有的单元格都有输出数据的公式。我的意思是，我有很多是双色或三色的，但是如何用不同的颜色来显示它们，这样我就可以更容易地分辨出哪个是哪个？