loop column with VBA, tell you how many times it appears

[daveyc18]

i want a macro that loops through column F and then tells you if it appears more than twice and highlight those cells.

 

[DanteAmor]

You can use the conditional format to highlight duplicates.
Or Try this

In column G it puts the message

Sub loopColumn()
  Dim c As Range, r As Range
  Set r = Range("F1", Range("F" & Rows.Count).End(xlUp))
  For Each c In r
    If WorksheetFunction.CountIf(r, c) > 2 Then
      c.Offset(, 1) = "appears more than twice"
      c.Interior.ColorIndex = 6
    End If
  Next
End Sub

 

[daveyc18]

You can use the conditional format to highlight duplicates.
Or Try this

In column G it puts the message

Sub loopColumn()
  Dim c As Range, r As Range
  Set r = Range("F1", Range("F" & Rows.Count).End(xlUp))
  For Each c In r
    If WorksheetFunction.CountIf(r, c) > 2 Then
      c.Offset(, 1) = "appears more than twice"
      c.Interior.ColorIndex = 6
    End If
  Next
End Sub

dantearmor, youre the best

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.