더 많은 입력이 있는지 확인합니다. EXCEL

Question

워크 시트에 24 개의 열과 30 개의 행이 있습니다. 일부 입력 사항이 두 번 이상 있는지와 어떻게 두드러지게 보이는지 확인하려면 어떻게해야합니까?

Answer 1

당신은 단순히 자신의 포맷을 변경하여 중복 된 세포의 위치를하고자하는 경우,이 짧은 매크로 실행 :

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