前提
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/ツールのバージョンなど)
ここにより詳細な情報を記載してください。

回答3件
あなたの回答
tips
プレビュー
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
また依頼した内容が修正された場合は、修正依頼を取り消すようにしましょう。
2022/11/03 09:13