表の値を別の表にも自動でコピーしたい

質問

よろしくお願いします。
シート１にある表１の値をシート２の表２にも自動でコピーしたいと思っています。
表１ですが、（セル番地/A1）に会社名、（セル番地/B1）に品名の見出しがあります。A2～A4に"あ"という会社名があり、A5～A8に"う"という会社名が入っています。
そして、B2には"いちご"という品名がありB3は"りんご"、B4は"バナナ、B5が"いちご"、B6は"バナナ"、B7は"ぶどう"、B8は"みかん"というように品名が入っています。

この表１の値をシート２の表２へコピーしたいのですが、表２は会社名はA2、B2というように行単位でつなげていきたいです。そして、品名は会社名の下にもっていきたいです。つまりA3～となります。
この例ですと、A2に"あ"が入って、A3・いちご、A4・りんご、A5・バナナとなり、B2に"う"が入って、B3・いちご、B4・バナナ、B5・ぶどう、B6・みかんとなるようにしたいです。
表１のA2～A4の"あ"は、表２ではA2に"あ"だけに残るように、同様に表１のA5～A8の"う"は、表２ではB2に"う"だけ残るようにしたいです。
表１では会社名毎に自動で、あいうえお順に並べ替えるようにしてますので、"い"という会社が表１で新規に入ったら表２のB2には"い"の会社が自動で挿入されて、"う"の会社は自動でC2に移動（品名も同様にB3→C3へ移動）するようにしたいのですが。
直接表２へ打ち込んだら？という意見もあると思いますが、それ以外の答えとしてです。
質問の内容がとてもわかりづらいと思いますが、内容が理解出来た方がいらしたら教えて下さいm(__)m

回答No.3

noname#70958 · ベストアンサー

ちょっと迂遠な感じもしますが、とりあえず。

シート２で

１．A2セル
　=OFFSET(シート１!A1,1,)
　とする

２．B2セル
　=IF(A2="","",""&INDEX(シート１!$A:$A,MATCH(A2,シート１!$A:$A,0)+COUNTIF(シート１!$A:$A,A2)))
　として右方にフィル

３．A3セル
　=IF(A2="","",IF(ROW()-ROW(A$2)>COUNTIF(シート１!$A:$A,A$2),"",INDEX(シート１!$B:$B,MATCH(A$2,シート１!$A:$A,0)+ROW()-ROW(A$2)-1)))
　として右方，下方にフィル

Excel2003で動作確認済。
--------------------------------------------------------------------
※
１の式は、単に　=シート１!A2 としても通りますが、
挿入や並べ替えの結果、A2セルが先頭でなくなるとズレてしまうので、
見出からオフセットしています。

※
２の式の　""&　の部分は、最後の会社の次の列で0が返るのを避けるためです。

※
３の式の　ROW()-ROW(A$2)　の部分は、ROW(A1)　としても通りますが、
「趣味の問題」でこのように書いています。

以上ご参考まで。

お礼

Keter_Kurzさん、助かりました(^_^)
丁寧なご回答ありがとうございました。

回答No.2

piro19820122

#1です。ごめんなさい。全く質問を勘違いしていました。
上の回答は忘れてください。考え直します…

お礼

piroさん、問題解決しました。ありがとうございました(^_^)

回答No.1

piro19820122

要するに、シート１の行と列を反転させた表をシート２に入れたいということですよね？

だとしたら、以下の式を使ってみてはいかがでしょうか？
=INDIRECT("Sheet1!R"&COLUMN()&"C"&ROW(),FALSE)
↑これを必要な範囲分コピペ。