エクセルの転記方法がわかりません。
excel2000を使用しています。
以下のような表があります。Ａ列は全て空です。
Ａ列│Ｂ列
│○○社●●店
│商品１
│商品２
│ ←空欄
│○○社■■店
│商品３
│ ←空欄
│○○社▲▲店
│商品２
│商品４
やりたいことは以下の通りです。
Ｂ列の「○○社」で始まる文字列をＡ列に転記です。
ただし次の「○○社」が出てくる直前の空欄、或いは空欄の１つ上の商品の所までです。
Ａ列 │Ｂ列
│○○社●●店
○○社●●店│商品１
○○社●●店│商品２
│ ←空欄（ここのＡ列に○○社●●店が入っても構いません）
│○○社■■店
○○社■■店│商品３
上記のようになるイメージです。
VBAを組んで行えばよいのでしょうが、
正直、どのように行ったらよいか見当がつかない状態です。
お教えいただけると大変有難く存じます。何卒宜しくお願い致します。
投稿日時 - 2010-07-30 17:18:22
0人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（2件中 1～2件目)
こんばんは！
一例です。
↓の画像で説明させていただきます。
作業用の列を設けています。
作業列C2セルに
=IF(ISNUMBER(FIND("社",B2)),ROW(),"")
という数式を入れ、オートフィルで下へずぃ～～～！っとコピーします。
そして、A2セルに
=IF(COUNTBLANK(B2:C2)=1,INDEX(B:B,SMALL(C:C,COUNT($C$2:C2))),"")
という数式を入れ、オートフィルで下へコピーすると
画像のような感じになります。
以上、参考になれば良いのですが
他に良い方法があれば読み流してくださいね。m(__)m
投稿日時 - 2010-07-30 18:34:24
お礼
御礼遅くなりまして申し訳ございません。
大変ご丁寧にスクリーンショットのアップまで行っていただき本当にありがとうございます。
こちらの方法でも、もちろん問題なく希望通りの形となりました。
皆様をベストアンサーにしたいのですが、一番はやくご回答頂けた方を選ばせていただきました。
申し訳ございません。
お教えいただきまして誠にありがとうございました。
投稿日時 - 2010-08-02 10:42:25
例えばお示しの表が2行目からありＢ2セルには○○社●●店が入力されているとします。
Ａ3セルには次の式を入力して下方にオートフィルドラッグします。
=IF(B3="","",IF(ISNUMBER(FIND("店",B2)),B2,A2))
投稿日時 - 2010-07-30 17:44:07
お礼
御礼遅くなりまして申し訳ございません。
こちらのやり方でも問題なくできました。
皆様をベストアンサーにしたいのですが、一番はやくご回答頂けた方を選ばせていただきました。
申し訳ございません。
お教えいただきまして誠にありがとうございました。
投稿日時 - 2010-08-02 10:40:39
