【Ｅｘｃｅｌ2007】 条件に合うセルをコピぺしたい

質問

すみません、調べても解決できなかったのでご教授のほどお願いいたします。見積・内訳明細を作っていて壁に激突しました。

たとえば、sheet2のＡ1セルに【小計】という文字が入っているとして、その隣のセル（Ｂ２になります）に【小計】の計算結果を表示させていたとします

ex)　　Ａ1　　　　　Ｂ2
　　【小計】　　　500,000

このＢ2の数字をsheet1のＡ3のセルに表示をさせたいのです。
ただし、Ａ列のどのセルに【小計】が入るかわからないし、何個くらい小計が入るのかもわからないのです。
今まではcountIFやVLOOKUPを使ってやっていたのですが、見積作成時に途中行を削除したり、挿入したりとちょこちょこシートをいじっていしまい、計算式が消えたりして、その都度の確認作業に時間がかかってしまって・・。

VBAでやらなきゃむりかも・・と思ってコーディングを試してみたりしたんですが、なにせVBA勉強中で・・エラーばかりで参ってしまいました（汗

どなたか、おしえてください！！お願いたします<m(__)m><m(__)m>

回答No.1

kuma56

VBA勉強中ならば、こういうアドバイスでもいいのかな？？
つまりやりたいのは、
Ａ列のセル（仮にＡ１）を確認して、それが【小計】だったら、一列右の一行下（仮にＢ２）のデータをコピーして、二行下（仮にＡ３）に貼り付ける。
ただし、Ａ列の【小計】がどこにはいるか分からないのでそれを探さなくてはならない。
さらに、【小計】が一箇所とも限らない。
つまり、Ａ列のデータを見て【小計】ならコピー＆ペーストしてその下のセルに移動する、違えばその下のセルに移動する。
これをＡ列のデータがなくなるまで（【小計】がなくなるまで）繰り返してやれば良いのでは？
となると、

Ａ１セルを選択
Do　Ａ列のデータがなくなるまで（【小計】がなくなるまで）
If　選択したセルの値が【小計】　Then
　　選択したセルの一列右の一行下のデータをコピーして、二行下に貼り付ける。
EndIf
　　その下のセルに移動する。
Loop

こんな内容で、きちんとしたＶＢＡの構文にしてみたらよいのでは？

お礼

回答ありがとうございます。お礼が遅くなって申し訳ありません<m(__)m>

DO　LOOP/ IF THEN を使うのだろうというところまでは調べて、何となく分ってはいたのですが、エラーが出るということはその間の構文がおかしいのでしょうね・・・

アドバイスいただいた形を頭に置いて、もう少し考えてみたいと思います。

ありがとうございました！（*^_^*）