vbaで配列にかぶりのないようにO列の値を入れていきたい

Question

前提

vbaでO列(被りのある値あり)の値をかぶりがないように集めていきたいです。

実現したいこと

O列で上のセルと等しくない時だけ配列にそのセルの値を入れていくようにしたいです。
(A列にも同じ行まで他の値が入っています。)

発生している問題・エラーメッセージ

「インデックスが有効範囲にありません。(エラー番号：9)」と出てしまうので、「If Not Not Acord Then・End If」を入れましたが、配列の中に値が入りません。

どなたかご教授いただきたいです。
よろしくお願いいたします。

該当のソースコード

Option Explicit

Sub createUpload()
Dim i As Integer
Dim Acord() As Variant
If Not Not Acord Then
For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "O") = Cells(i - 1, "O") Then
ReDim Preserve Acord(UBound(Acord) + 1)
Acord(UBound(Acord)) = "i"
End If
Next i
End If
Worksheets("Sheet1").Range("E6").Value = Acord
End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

何やら回りくどい書き方してごっちゃごちゃになってますが、要は「O列のデータのユニークリストをE列に作りたい」ですよね？
ならもっと単純な方法があります。DictionaryやCollectionの仕様を利用すれば楽に実装できるうえに重複する数値のセルが離れてても対応できますよ。

Option Explicit

Sub createUpload()
    Dim A As New Collection, i As Long

    'Collectionは重複するキーを入れようとするとエラーが出ることを利用して重複しないリストを作成
    On Error Resume Next
    For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
        A.Add Cells(i, 1), Cells(i, 1)
    Next i
    On Error GoTo 0
    For i = 1 To A.Count
        Cells(i + 5, 5) = A(i)
    Next i
End Sub

ほぼここのパクリなのでCollectionの解説なんかはここ見ればより詳しい解説が載ってます

Comments

[risa__]

ご教授いただき、ありがとうございます。
私がやりたいと言っていたことと、やっていたことが違いましたが、ユニークな値の列も作らないといけないので、pig_vbaさんに教えて頂いたことも元に作り直したいと思います。
ありがとうございました！

Answer 2

お二人ともご教授いただきありがとうございます。
お二人の内容を見て、自分のやっていることとやりたいことが違っていることに気づきました。

O列のユニークリストをE列に作りたいのではなく、
O列に出てくる同じ値の他の行の最小値や、同じ値のカラー列のリストのようなものを作りたいと思っていたので、
同じ値の出てくる最初の行数と最後の行数を出せばいいのだなとわかりました。

もう一度考えなおして、作り直したいと思います。
ご教授いただきありがとうございました！

↓こんなイメージのExcelの表です。

Answer 3

If Not Not Acord Then で配列の初期化を判定しているのだと思いますが、入れる位置を間違っています。

O列で上のセルと等しくない時だけ配列にそのセルの値を入れていくようにしたいです。

ということなら、
If Cells(i, "O") = Cells(i - 1, "O") Then
ではなく、
If Cells(i, "O") <> Cells(i - 1, "O") Then
じゃないですか。

さらに、配列をシートに出力するときは、配列のサイズとセル範囲のサイズをそろえる必要があります。

Acord(UBound(Acord)) = "i"は配列に "i"という文字を格納してますが、やりたいことはそうではないですよね。セルの値を格納するなら、
cord(UBound(Acord)) = Cells(i, "O")ですね。

とりあえず上記を考慮して書き直すと、下記になります。

Sub createUpload()
    Dim i As Integer
    Dim Acord() As Variant
    
    For i = 4 To Cells(Rows.Count, "O").End(xlUp).Row
        If Cells(i, "O") <> Cells(i - 1, "O") Then
            If Not Not Acord Then
               ReDim Preserve Acord(UBound(Acord) + 1) '配列のサイズを拡張
            Else
                ReDim Acord(0) '配列の初期化
            End If
            Acord(UBound(Acord)) = Cells(i, "O")
        End If
    Next i
    Worksheets("Sheet1").Range("E6").Resize(, UBound(Acord)).Value = Acord
End Sub

上記の結果がご希望と異なるなら、どこが違うか指摘してください。

Comments

[risa__]

ご教授いただき、ありがとうございます。
私がやりたいと言っていたことと、やっていたことが違いましたが、hatena19さんに教えていただいたことも使って作り直したいと思います。
ありがとうございました！