VBA Function If Duplicates Exist (TRUE/FALSE)

[Chris Macro]

Hello,

I'm looking for a quick/simple VBA function/test that I can incorporate that will simply tell me whether duplicates exist within a given range or not. I just need the output to be TRUE or FALSE, no need to list out the duplicates or anything fancy. Would prefer a solution that doesn't need to loop through each cell in the range if possible.

I've seen a bunch of solutions on how to detect/highlight duplicates which is more functionality than what I'm looking for in this specific case.

Appreciate your help and creativity!

 

[lrobbo314]

How about this?

Book42.xlsm
	R	S	T	U
9	1	1	a	a
10	2	1	b	a
11	3	2	c	b
12	FALSE	TRUE	FALSE	TRUE
RAW

Cell Formulas
Range	Formula
R12:U12	R12	=DUPEXIST(R9:R11)

Function DUPEXIST(r As Range) As Boolean
DUPEXIST = Evaluate(Replace("NOT(AND((COUNTIF(@,@)=1)))", "@", r.Address))
End Function

 

[Chris Macro]

How about this?

Book42.xlsm
	R	S	T	U
9	1	1	a	a
10	2	1	b	a
11	3	2	c	b
12	FALSE	TRUE	FALSE	TRUE
RAW

Cell Formulas
Range	Formula
R12:U12	R12	=DUPEXIST(R9:R11)

Function DUPEXIST(r As Range) As Boolean
DUPEXIST = Evaluate(Replace("NOT(AND((COUNTIF(@,@)=1)))", "@", r.Address))
End Function

Love it! Thank you so much!

 

[lrobbo314]

───────────────────░█▓▓▓█░▇▆▅▄▃▂
──────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
─────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
──────────░░░───░█▓▓▓▓▓▓█░▇▆▅▄▃▂
─────────░███░──░█▓▓▓▓▓█░▇▆▅▄▃▂
───────░██░░░██░█▓▓▓▓▓█░▇▆▅▄▃▂
──────░█░░█░░░░██▓▓▓▓▓█░▇▆▅▄▃▂
────░██░░█░░░░░░█▓▓▓▓█░▇▆▅▄▃▂
───░█░░░█░░░░░░░██▓▓▓█░▇▆▅▄▃▂
──░█░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░█░░░█░░░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░█░░░░██░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░░█░░░░░██░░░█▓▓▓█░▇▆▅▄▃▂
─░█░█░░░█░░░░░░███▓▓▓▓█░▇▆▅▄▃▂
░█░░░█░░░██░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░█░░░░█████▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░░█░░░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░█░░░░██░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
─░█░█░░░░░████▓▓▓▓██░▇▆▅▄▃▂
─░█░░█░░░░░░░█▓▓██▓█░▇▆▅▄▃▂
──░█░░██░░░██▓▓█▓▓▓█░▇▆▅▄▃▂
───░██░░███▓▓██▓█▓▓█░▇▆▅▄▃▂
────░██▓▓▓███▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓▓▓▓▓▓█░▇▆▅▄▃▂