Storing different data value in an array

Hello everyone,

I am trying to go through a random list of numbers, for instance:

80769
80769
80769
80769
121435
121435
121435
121435
114160
114160
114160
114160
119364
119364
119364
119364
81634
81634
81634
81634
51373
51373
51373
51373
90231
90231
90231
90231
77601
77601
77601
77601
109029
109029
109029
109029


Now, in here, I want to store different values in an array without putting in same data in the array quadriple times, so I would want to store the following data in an array (i.e. 80769, 121435, 114160, 119364, 81634, 51373, 90231, 771601, 109029)

Help is greatly appreciate and I thank you in advance.

I would dump them in to an array and access the ones I wanted

Myarray= Sheets("Sheet1").Range("A2").CurrentRegion.Value

You loop through each row/column to access the elements of the array.

Sorry I don't follow, what I would like to do is, for instance, when you put on a auto-filter, if you click the scroll, you would see different elements to the list, that's what I would like to store in the array.

You mean

Myarray=array("80769", "121435", "114160", "119364", "81634", "51373", "90231", "771601", "109029")

oh no no, sorry. the array is not fixed, so it would be dynamic, and the numbers would be different for other files so it won't be fixed either.

So, I would like to go through a random list of numbers, and store the unique elements into an array. Would this be possible through vba?

Myarray= Sheets("Sheet1").Range("A2").CurrentRegion
is a dynamic array. This will show you how many rows and columns(Lower and upper bounds) are stored in the array.
Each element has an index, to access a particular element, you have to loop through the index and pick that element.
May be, I misunderstood your request, but that is how I use arrays in my codes.

1) No loop but resulting String type array

Sub test()
    Dim a
    With Sheets("sheet1").Cells(1).CurrentRegion.Columns(1)
        a = Filter(.Parent.Evaluate("transpose(if(countif(offset(" & _
            .Address & ",0,0,row(1:" & .Rows.Count & "))," & .Address & ")=1," & _
            .Address & ",char(2)))"), Chr(2), 0)
    End With
End Sub

2) Returning Variant type array

Sub testDic()
    Dim a, e
    a = Sheets("sheet1").Cells(1).CurrentRegion.Columns(1).Value
    With CreateObject("Scripting.Dictionary")
        For Each e In a
            .Item(e) = Empty
        Next
        a = .keys
    End With
End Sub