Build an Array of Different Values From Column

R

Ryan H

How can I build an array with non repeating values from a column? For
example, in Col. A I have this:

Col. A
1
2
3
3
3
4
4

I want MyArray = Array(1,2,3,4). No duplications. Can I use the Split
Function?

MyArray = Split(MyRange, "", 1, ) ' this doesn't work, Err: Type Mismatch

Thanks in Advance!
 
S

Sam Wilson

Something like this would work. It's not very pretty:

Sub arraymaker()

Dim rng As Range
Set rng = Range("A1:A13")

Dim aResult() As String
Dim i As Integer

Dim c As Range
For Each c In rng
If WorksheetFunction.CountIf(Range("a1:" & c.Address), c) = 1 Then
ReDim Preserve aResult(i)
aResult(i) = c.Value
i = i + 1
End If
Next c

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top