エクセル VBA で 教えてください！

質問

初めて質問させていただきます
初心者で困っています　どなたかご教授よろしくお願いします！

A列 __＿_B列______C列
B_____________________ 123
D______________________ 1
D______________________ 2
B______________________456
D______________________ 1
D______________________ 2
D______________________ 3
B______________________789
D______________________ 1

自分はB列にいます（表現が正しいかもわかりませんが）

同じ行で
A列の内容が　Bだったら隣のCセルの　内容をBセル（自分のいるセル）にコピー
Dだったら上の内容（Bの時コピーした内容）をコピーし
　　　　　　　　　行を下へ繰り返し
A列のデータが空白まで繰り返す　そうして　B列を　埋めたいのですが

よろしくお願いしたします！

回答No.2

FEX2053 · ベストアンサー

んじゃま、真面目にVBAで。
VBEの使い方はご存じだと言う前提で、コードだけ。

Sub test()
Range("B1").Select
Do Until Selection.Offset(, -1).Value = ""
Select Case Selection.Offset(, -1).Value
Case "B"
Selection.Value = Selection.Offset(, 1).Value
Case "D"
Selection.Value = Selection.Offset(-1).Value
Case Else
End Select
Selection.Offset(1).Select
Loop
End Sub

Range("B1").Select で、B1セルを選択しておいて、あとは

１．Do Until Selection.Offset(, -1).Value = ""で、一つ左の
セルが空白までループ

２．Select Case Selection.Offset(, -1).Valueで、一つ左の
セルの内容によって処理を切り替える。

３．Selection.Value = Selection.Offset(, 1).Valueは、一つ
右の、.Offset(-1)は一つ上のセルの内容を選択したセルに
設定する。

４．Selection.Offset(1).Selectで、一つ下のセルを選択し直し

こんな感じでどうですか？

お礼

誠にありがとうござます。無理を言って申し訳ありませんでした素晴らしく成功しました　助かりました。感謝いたします

回答No.1

FEX2053

VBAなんぞ使わなくても、

=IF(A2="B",C2,IF(A2="D",B1),"")

こいつを下にコピーで済む話なんじゃ？

補足

ありがとうございます
説明が足りなくてすいません　accessから　エクセルのvbaを動かして自動でやりたいのです。　教えて頂いた関数を手動で行いましたが、多すぎる引数でエラーとなりました、申し訳ありませんが　ご存知でしたらマクロとして使えるvbaでお願いします！