Problems assigning value to an array: Run-Time error 9

[nai0248]

Code is below:

Trying to read the value of a cell to put only unique values into an array for later uses.

Sub Unique()
Dim ARComputer() As String, ARAssign() As Variant, I, intRow, intLastRow, x
I = 0: r = 0

intLastRow = Range("A65536").End(xlUp).Row

ARComputer(I) = Cells(intLastRow, 1).Value ' Error occurs at this line Trying to assign first value and then use this later to compare to other values

For intRow = intLastRow To 2 Step -1
    Rows(intRow).Select
    If ARComputer(I) <> Cells(intRow, 1).Value Then
        I = I + 1
        ReDim Preserve ARComputer(I)
        ARComputer(I) = Cells(intRow, 1).Value
    End If
Next intRow

End Sub

[Sadath31]

You can use this to remove duplicates

Option Explicit

Sub RemoveDuplicates()
    Dim AllCells As Range, Cell As Range
    Dim NoDupes As New Collection
    Dim i As Integer, j As Integer
    Dim Swap1, Swap2, Item
    
    Set AllCells = Range("A1:A105")
    
    On Error Resume Next
    For Each Cell In AllCells
        NoDupes.Add Cell.Value, CStr(Cell.Value)
'       Note: the 2nd argument (key) for the Add method must be a string
    Next Cell

'   Resume normal error handling
    On Error GoTo 0

'   Sort the collection (optional)
    For i = 1 To NoDupes.Count - 1
        For j = i + 1 To NoDupes.Count
            If NoDupes(i) > NoDupes(j) Then
                Swap1 = NoDupes(i)
                Swap2 = NoDupes(j)
                NoDupes.Add Swap1, before:=j
                NoDupes.Add Swap2, before:=i
                NoDupes.Remove i + 1
                NoDupes.Remove j + 1
            End If
        Next j
    Next i
    
'   Add the sorted, non-duplicated items to a ListBox
x=1
    For Each Item In NoDupes
        Range(“A”&x)= Item
	X=x+1
    Next Item

End Sub

[nai0248]

I'm a bit confused why adding to a collection does not include duplicates but adding to an array does. I could not locate anything in the syntax description that states a collection would not include duplicates.

[shg]

A collection does not allow entries with duplicate keys; it generates a run-time error, and does not add the item.

The On Error Resume Next statement suppresses the error.

[snb]

Unique values in column A to array sq

sub more_unique()
  columns(1).advancedfilter xlfiltercopy,,cells(1,26),true
  sq=columns(26).specialcells(2)
End Sub

[nai0248]

Thanks a bunch. The first part (collection) is what I needed for now. Now to just figure out the remaining part...