Excel Formula to find duplicates and return text on 1st duplicate in separate column

[Justin_M]

Hello everyone,

I am attempting to find duplicates (in column B) and return text of 1st duplicate in separate column. The only thing i can think of off the top of my head would be to do the conditional formatting to highlight the duplicates, then sort by color, then update true/false on column D. Might be easier than creating a formula but figured id give this a shot! Any suggestions?

More Info:

Column B has a list of phone numbers associated to customers. Some customers live in the same household and share the same number, so we don't want to call them multiple times.

 

[Justin_M]

Just so you both know, this was a MAJOR help to my organization. Someone was doing these updates manually and it was taking HOURS and sometimes DAYS! I didn't know about this report until yesterday and we took their processing time down to 1 second. Y'all really made me look good and I wanted to say thank you very much for your input and assistance.

 

[Fluff]

 

[Gogo007]

How about

Sub justinM()
   Dim Ary As Variant, Nary As Variant
   Dim r As Long
  
   With Sheets("Sheet1")
      Ary = .Range("B2", .Range("B" & Rows.Count).End(xlUp)).Value2
   End With
   ReDim Nary(1 To UBound(Ary), 1 To 1)
   With CreateObject("Scripting.dictionary")
      For r = 1 To UBound(Ary)
         Nary(r, 1) = .Exists(Ary(r, 1))
         .item(Ary(r, 1)) = Empty
      Next r
   End With
   Sheets("Sheet1").Range("D2").Resize(UBound(Nary)).Value = Nary
End Sub

Great Solution !
Can you please help me with,
In the Output Result It's showing TRUE and FALSE , So Whenever the Value is Duplicate can we Print "Duplicate Value"?

 

[Fluff]

Please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate may be locked or deleted. You need to stick to your existing thread.