distinct from array dump, VBA question

[RompStar]

I have this code:

.Range("A2:A" & UBound(mylog) + 1) = WorksheetFunction.Transpose(mylog)

It at the end of the Sub, it dumps all the list values from the array starting at
A2 to the last row of my Control workbook. This works, but because of the complexity of my code due to business rules, I have duplicates at the end, which I filter out by selecting it column and using AutoFilter with distinct.

Is there a way to do this step in VBA, to alter that one liner of code, so that it dumps
the distinct values already out of the array, would save me one step, thank you!

 

[RompStar]

do you guys think this would work ? is there a better way ?

Set d = CreateObject("Scripting.Dictionary")

Dim i As Long
For i = LBound(mylog) To UBound(mylog) ' make it distinct
d(mylog(i)) = 1
Next i
.Range("A2:A" & UBound(mylog) + 1) = WorksheetFunction.Transpose(mylog) 'dump it into the sheet

 

[RompStar]

I solved this using a google search and custom adjustment for my needs, posting incase someone finds it useful...

Set d = CreateObject("Scripting.Dictionary")

Dim ii As Long
For ii = LBound(mylog) To UBound(mylog) ' make it distinct
d(mylog(ii)) = 1
Next ii

Dim v As Variant
For Each v In d.Keys()

vv = 2
.Range("A" & vv).Value = v
vv = vv + 1

Next v


Its not perfect, but it works well :- ) thanks!

 

[RompStar]

there, the vv = 2 was in the wrong place, it would re-set to 2 within each loop, darn it...

Set d = CreateObject("Scripting.Dictionary")

Dim ii As Long
For ii = LBound(mylog) To UBound(mylog) ' make it distinct
d(mylog(ii)) = 1
Next ii

Dim v As Variant
vv = 2
For Each v In d.Keys()

.Range("A" & vv).Value = v
vv = vv + 1

Next v

 

[shg]

In your first post, you said

I have duplicates at the end

If that's the only place you have duplicates, and you know how many unique value there are, why not just write out only the top part of the array?

What kind of data is in the array?