Excel：ある列にキーワードが出たら、その行の値を次のキーワードの手前までフィルしたい

Question

###前提・実現したいこと
業務で必要になったため質問させていただきます。
CSVデータをピボットテーブルに使用するために、以下のような加工を行いたく考えております。
表題が適切か自信がありませんので、下表をご覧ください。

1. 「納品書」行のB・C列の値で、続く「品目」行のB・C列を埋める
2. 次の「納品書」行が出たら、その「納品書」行のB・C列の値で、続く「品目」行のB・C列を埋める
3. 以降繰り返し
4. シート上のこれらを一括で処理したい

＜元データ＞

A列	B列	C列
納品書	＊＊＊建設	◯◯現場
品目
品目
品目
品目
納品書	■■運輸	本社
品目
品目
（以下続く）

＊「納品書」と「納品書」の間の「品目」の数は一定ではありません。

＜↓↓↓　こうしたい　↓↓↓＞

A列	B列	C列
納品書	＊＊＊建設	◯◯現場
品目	＊＊＊建設	◯◯現場
品目	＊＊＊建設	◯◯現場
品目	＊＊＊建設	◯◯現場
品目	＊＊＊建設	◯◯現場
納品書	■■運輸	本社
品目	■■運輸	本社
品目	■■運輸	本社
（以下続く）

###補足情報

月間1,000件以上あるため、Excel関数やマクロ処理で一度に処理できないかと考えましたが、処理できるなら他の手段でもご教示いただければ幸いです。

漠然と、A列で「納品書」という値が出たら、B・C列をコピーして品目行にフィル、というような条件を作ればよいのではないかと考えましたが、実際の方法にまでは思い至りませんでした。

ネットで調べながらExcel関数で何とかできないものかと悪戦苦闘しておりますが、未だ糸口もつかめておりません。
浅学の身にどうかご教示を宜しくお願いいたします。

Answer 1

試行錯誤の結果、以下VBAで自己解決することができました。
ありがとうございました。

1行ごとの評価なので件数が増えた際に不安ですが・・・。
もっと効率的な処理をご存じの方がいらっしゃいましたら、後学のためご教示いただけますと幸いです。

Sub データ加工()

Dim Y As Long
Dim DATA As Variant

'処理開始行
Y = 2

'繰り返し処理
Do Until Cells(Y, 1).Value = ""
    If Cells(Y, 1).Value = "納品書" Then
        DATA = Range(Cells(Y, 2), Cells(Y, 3)).Value
    Else
        Range(Cells(Y, 2), Cells(Y, 3)).Value = DATA
    End If
    Y = Y + 1
Loop

End Sub

Answer 2

普通のエクセルの関数でできます。
まずは、フィルターをして、
空白行で、抽出します。
抽出された先頭の行に計算式を入れます。
=B1
と。
C列にも同じような計算式を入れます。
=C1
と。

あとは、空白セルに計算式をコピペすれば、解決できます。

ポイントは、上のセルを参照する計算式を入れる事です。

Comments

[taxi]

ご回答いただきありがとうございます。
確かに結果は希望の結果になりますが、業務効率上可能な限り省力化できる方法を探しております。
可能であればExcel関数・マクロやVBAで一括処理したいのですが、方法を御存知でしたらご教示をお願いいたします。