【VBA】配列に隣のセルの値を代入したい

今回初投稿となるため、質問に不備がありましたら申し訳ございません。
質問内容は添付されている画像を見て頂くとわかると思いますが、「○」があるセルの左隣の値（AAA,BBBなど）を配列に代入したいです。

VBA初心者のためやっていることが意味不明かもしれませんが、以下に記載致します。

Dim MaruLeft(i)
i = 1

Do Until Sheets("Sheet1").Cells(4 + i, 3) = ""

If Sheets("Sheet1").Cells(4 + i, 3) = "○" Then
MsgBox "取得できていない"

Else
MaruLeft(i) = Worksheets("Sheet1").Cells.Find("○").Offset(0, -1)
MsgBox "取得できた"
i = i + 1

End If
Loop

環境:Win8,Excel2016(office365),

以上、ご教示ください。

行動規範の内容に同意します

回答2件

はじめまして。
動的配列(配列のサイズが分からない場合※)では、配列の宣言を2回に分けて行います。
※データが5行目から25行目と固定ではなく、26行目以降もデータが入ってくる可能性がある場合

以下のような流れになるかと思います。

'-----------------------------'
Dim MaruLeft() As String
'-----------------------------'
i = 5
x = 1
'-----------------------------'
Do Until Sheets("Sheet1").Cells(i, 3) = ""
    '-----------------------------'
    If Sheets("Sheet1").Cells(i, 3) = "○" Then
        '-----------------------------'
        ReDim MaruLeft(i)      '要素数(i)の再定義をします
        MaruLeft(i) = Sheets("Sheet1").Cells(i, 2)
        '-----------------------------'
        Sheets("Sheet2").Cells(x, 1) = MaruLeft(i)  '配列で取得した結果を書き出し
        'MsgBox "取得できた"
        '-----------------------------'
        x = x + 1
        '-----------------------------'
    End If
    '-----------------------------'
    i = i + 1
    '-----------------------------'
Loop
'-----------------------------'

投稿2016/07/12 05:53

ariy

総合スコア20

Bss

2016/07/13 06:57

動作確認もとれ、初心者にもわかりやすいものでロジックを組んでいただきありがとうございます。また、わざわざコメントまで頂きありがとうございました。

行動規範の内容に同意します

ベストアンサー

ざっくり修正してみました。
たぶん大丈夫だと思いますが参考にしてください。
一応コメント入れておきました。

VBA
1    Dim MaruLeft() ' 動的配列を空で用意
2    Dim r As Long ' 行のカウント用
3    Dim i As Long ' 配列要素数
4    
5    r = 5 ' 処理開始行
6    i = 0 ' 配列の要素数
7
8    ' セルに値がある間ループ
9    Do While Sheets("Sheet1").Cells(r, 3) <> ""
10        ' ○なら
11        If Sheets("Sheet1").Cells(r, 3) = "○" Then
12            ' 配列の要素をプラス１（preserveで値保持）
13            ReDim Preserve MaruLeft(i + 1)
14            ' 配列の最終要素に格納
15            MaruLeft(UBound(MaruLeft)) = Worksheets("Sheet1").Cells(r, 2)
16            ' 要素数をインクリメント
17            i = i + 1
18        End If
19        ' 行をインクリメント
20        r = r + 1
21    Loop