Build an Array of Different Values From Column
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
"Ryan H" wrote:
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!
--
Cheers,
Ryan
|