Excel VBAによる検索処理？

質問

Excelで以下の例のように、A列・B列に入力されているとします。A列を検索して、C列にB列の値を返す式を考えてますが、さっぱりわかりません。VBAとかも正直素人ですが、サンプルもしくは考え方を教えていただければと思います。以下の処理内容です。
・AXセルが「B」であった場合、次のセル(A(X+1))を検索し、次が空白になるまで検索し、空白になる前の最後の行のB列の値をCXセルに返す。該当しない場合は空白のまま
下記の例ですと３行目、８行目のB列の値を２・３、６－８行目のC列のセルに返すことになります。よろしくお願いいたします。

（処理前)
___A__B__C
-------------
1
2__B__2
3__B__3
4______4
5______5
6__B__6
7__B__7
8__B__8
9______9

（処理後)
___A__B__C
-------------
1
2__B__2__3
3__B__3__3
4______4
5______5
6__B__6__8
7__B__7__8
8__B__8__8
9______9

回答No.3

zap35 · ベストアンサー

＃０１です。Ｃ２の式は以下でいかがでしょうか。
　=IF(A2="","",INDIRECT("B"&MIN(IF(LEN(A2:A$10)=0,ROW(A2:A$10),65536))-1))
（Shift＋Ctrl＋Enterで入力します）

ただし最終行にデータがあると不正動作するようですので、範囲（A2:A$10）は例えばA2:A$500のように実際のデータより大きめに指定しておいてください。

お礼

重ね重ねのご回答ありがとうございます。
今度は問題なく処理されました。ISBLANK関数で空白をチェックするのではなく、LEN関数で文字数が0であることを条件分岐にしたんですね。
大変参考になりました。もっと勉強せねばと思いました。

回答No.2

zap35

＃０１です。ＶＢＡならとりあえずこんな感じでしょうか
Sub Macro()
Dim wkNUM, idx As Long, psw As Boolean
　psw = False
　For idx = Range("A65536").End(xlUp).Row To 2 Step -1
　　If Cells(idx, 1) = "" Then
　　　psw = False
　　　Cells(idx, 3) = ""
　　Else
　　　If psw = False Then
　　　　wkNUM = Cells(idx, 2).Value
　　　　psw = True
　　　End If
　　　Cells(idx, 3) = wkNUM
　　End If
　Next
End Sub

お礼

VBAでのご回答もわざわざ考えてくださりありがとうございます。
内容を理解してみようと思います。最初VBAと書いたのは、ループ処理が入るのではないかと思ったからでした。今後複雑な処理をする必要が出てきそうですのでVBAもきちんと勉強しようと思います。

回答No.1

zap35

もちろんＶＢＡでもできます。でも関数でもできます。Ｃ２に以下の式をペーストして

=IF(A2="","",INDIRECT("B"&MIN(IF(ISBLANK(A2:A$9),ROW(A2:A$9),65536))-1))

Shift＋Ctrl＋Enterで入力し、Ｃ３以下はＣ２をコピー。式中のA2:A$9の範囲は実データに合わせる。（＄記号はいじらないこと！）

ＶＢＡでやりたいが、アルゴリズムが分からないというご趣旨であれば補足して下さい。

補足

迅速なご回答ありがとうございます。
関数の式については理解してみようと思います。
頂いた内容で試してみたところ、A列に直接入力している場合はうまくいきました。
一方A列自身に式を設定しているような場合には見かけ上空白でも、その式の最後までは空白で無いと認識しているようです。
（例：IF(D2="B",D2,"")をA列のセルに設定している場合)
お願いばかりで恐縮ですが、A列自身に式を設定されている場合でも有効な関数の式を教えて頂けないでしょうか？よろしくお願いいたします。