On Apr 24, 5:04*am, Andri wrote:
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(IN*DIR ECT("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

You can use pivot table for that or use following (Change thee range
address)

Range("YourRange").advancedfilter
action:=xlfiltercopy,copytorange:=range("SetYourRa nge"),unique:=true
this will copy your unique items in "yourrange" cells to
"SetYourRange" cells