VBA 各セルの文字を処理した結果を配列に入れる

質問

以下のコードはどう書いたら良いかお教えください。
・セルA1からA5に対して（ユーザーが任意に選んだ範囲で、その都度変わります）
・各セルの文字に”あ”が含まれていたら、削除します（”いあう”⇒”いう”）
・各セルに対して処理した結果をC（1,1）～C（5,1）の配列に入れたい

回答No.1

kanemoto_s · ベストアンサー

・セルA1からA5に対して（ユーザーが任意に選んだ範囲で、その都度変わります）
現在選択中の物を取得するselectionを使ってください。
Dim r as Range
Set r=Selection
・各セルの文字に”あ”が含まれていたら、削除します（”いあう”⇒”いう”）
rangeオブジェクトのreplaceメソッドを使ってください。
Dim r as Range
Set r=Selection
Call r.Replace("あ", "")
・各セルに対して処理した結果をC（1,1）～C（5,1）の配列に入れたい
Option Base 1
を最初に宣言すると、配列の始まりは1になりますので、あとはVariantの配列変数に代入すれば配列で取得できます。ただ、選択セルが1セルの場合はエラーになりますのでエラー処理が必要です。
Dim r as Range
Dim c() As Variant
Set r=Selection
Call r.Replace("あ", "")
On Error Resume Next
c = r.Value
If Err.Number <> 0 Then
ReDim c(1, 1)
c(1, 1) = r.Value
End If
On Error GoTo 0

補足

回答ありがとうございます。
c(1,1)・・・１なのに何個も配列が出来るのですね。不思議です。
最後のデータc(n,1)のｎを調べるにはどうすればよいのでしょうか？
何度もすみませんが、よろしくお願いいたします。