Select the UNIQUE vendors name
Hello Andri,
The following short program hi-lights your unique data lines in red.
Another way:
copy your entire column somewhere way down on the sheet.
Use eliminate duplicates on your command list.
Best Regards,
Gabor Sebo
Sub formatunique()
With Range("a1:a29")
'unique words hi-lighted in red
.Select
.FormatConditions.Delete
.FormatConditions.AddUniqueValues
.FormatConditions(1).DupeUnique = xlUnique
.FormatConditions(1).Interior.Color = RGB(255, 0, 0)
End With
End Sub
-----------------------------------------------------------------------------------------------------------
"Andri" wrote in message
...
Dear All,
Please help how to replace the below function with the VBA solution:
=OFFSET($G$1,MATCH(0,MMULT(--TRANSPOSE(TRANSPOSE($G$1:$G$14)=I$1:I1),ROW(INDIRE CT("1:"&ROW()-1))/ROW(INDIRECT("1:"&ROW()-1))),0)-1,0,1,1)
the above formula work fast, when then data is not many.
But when we would like to SHORTLISTED / UNIQUE data, it will be a long
wait
for Excel to finish the task.
Data:
Vendor Name
A
B
A
B
C
E
E
E
A
the Result of Unique Vendor will be
A
B
C
E
TIA
|