表内の要素を配列を使って抽出したい

Question

表内のA列にあるデータのうち、異なる表記のみを抽出し配列を入れ込みたく次のコードを作成しました。
配列を作成し、新しい要素が出てくるたびに配列を増やす方式をとっているのですが、「 If UBound(CResult) <> -1 Then」の部分で「インデックスが有効範囲にありません。」となってしまいます。
「CResult」は、Variant　となっているので、「-1」の場合でも問題ないとおもうのですが・・・。

原因、改善方法を知りたく質問致しました。
よろしくお願いします。

Sub カテゴリ()
Dim cateary() As String
Dim CResult As Variant
Dim Row As Long
Dim i As Long
Dim cate As String

i = 1
Row = 11
cate = "初期値"
 Do While cate <> ""
  cate = Cells(Row, 1)
  CResult = Filter(cateary, cate)
  
  If UBound(CResult) <> -1 Then 'ここです！
  Else '配列にデータが無い場合
   ReDim Preserve cateary(i)
   cateary(i) = cate
   i = i + 1
  End If

  Row = Row + 1
 Loop

End Sub

Comments

[tatsu99]

この例では、どのようなものを、carearyに格納したいのですか。

Answer 1

以下のように最初にReDimしておくと動くと思います。

'（略）

i = 0
Row = 11
cate = "初期値"
ReDim cateary(i)

'（略）

Comments

[ice930]

Re Dim　を追加したところ正常に作動しました。
ベストアンサー選択するの遅くなり申し訳ありません・・・・。