ＥＸＣＥＬでできますか？

質問

シート１から、必要なデーターをシート２に表示させる方法はありますか？

＜シート１＞
年│月│日│商品名│Ａ店│Ｂ店│Ｃ店
─　─　─　─　──　─　─　─　─
１│１│１　●●　│１　│１　│１
１│１│１　××　│１　│２　│１
１│１│２　●●　│１　│１　│１
１│１│２　▼▼　│１　│１　│１

＜シート２＞
年│月│日│商品名│Ａ店│Ｂ店│Ｃ店
─　─　─　─　──　─　─　─　─
１│１│１　●●　│１　│１　│１
１│１│２　●●　│１　│１　│１

＜シート３＞
年│月│日│商品名│Ａ店│Ｂ店│Ｃ店
─　─　─　─　──　─　─　─　─
１│１│１　××　│１　│２　│１

というように、商品名ごとに分けて表示することは可能ですか？

回答No.7

shinkami · ベストアンサー

１．sheet2に式「=Sheet1!A1」「=Sheet1!A2」‥でsheet1と同じものを作成しておきます。
２．sheet2でマクロ（商品別）を作成します。
ツールメニューからマクロ、新しいマクロの記録（マクロ名を商品別）、商品別分類、マクロを終了
３．sheet2でVBAを起動し
alt+F11‥VBA起動
sheet2をダブルクリックしてコーディングは以下
Private Sub Worksheet_Activate()
商品別
End Sub

回答No.6

noname#262398

数式でやるなら、多少重くなるのは仕方が無いと思います。

シート２のA2=IF(ROW(A1)>COUNTIF(Sheet1!$D$1:$D$1000,"●●"),"",INDEX(Sheet1!A$1:A$1000,1/LARGE(INDEX((Sheet1!$D$1:$D$1000="●●")/ROW(A$1:A$1000),),ROW(A1))))
右へ、下へコピー。

作業列を使えるなら、その方が良いですね。
H列を使えるとして、
シート１のH2=D2&"_"&COUNTIF(D$2:D2,D2)
下へコピー。

シート２のA2=IF(ROW(A1)>COUNTIF(Sheet1!$D$1:$D$1000,"●●"),"",INDEX(Sheet1!A$1:A$1000,MATCH("●●_"&ROW(A1),Sheet1!$H$1:$H$1000,0)))
右へ、下へコピー。

お礼

ありがとうございます。
皆様の意見大変参考になりました。

回答No.5

maron--5

◆Sheet1
　　A　 B　 C　　　D　　　　E　　　F　　　G
1　年　月　日　商品名　Ａ店　Ｂ店　Ｃ店
2　 1　 1　 1　　●●　　　1　　　1　　　1
3　 1　 1　 1　　××　　　1　　　2　　　1
4　 1　 1　 2　　●●　　　1　　　1　　　1
5　 1　 1　 2　　▼▼　　　1　　　1　　　1

◆Sheet2
　　A　 B　 C　　　D　　　　E　　　F　　　G
1　●●
2　年　月　日　商品名　Ａ店　Ｂ店　Ｃ店
3　 1　 1　 1　　●●　　　1　　　1　　　1
4　 1　 1　 2　　●●　　　1　　　1　　　1

◆Sheet2のA1に「商品名」を入力します
A3=IF(ROW(A1)>COUNTIF(Sheet1!$D:$D,$A$1),"",INDEX(Sheet1!A:A,SMALL(INDEX(SUBSTITUTE(N(Sheet1!$D$1:$D$100=$A$1),0,10^5)*ROW($1:$100),),ROW(A1))))
★右と下にコピー
★これで、A1の「商品名」を「××」にすれば、××　の内容が表示されます

お礼

ありがとうございます。
この商品名を入力すればよいというのも
提案にあがったんですがこれまた却下となりました・・・・。

回答No.4

noname#21506

データがシート1のA2からA5の行に入っていた場合
シート2のA2セルに以下の数式を設定し、縦横にコピー
この式は配列数式のため、入力完了時にshift+ctrl+enterキーを同時押下
=IF(ROW($A1)-1<COUNTIF(Sheet1!$D$1:$D$5,"●●"),INDEX(Sheet1!A$1:A$5,SMALL(IF(Sheet1!$D$1:$D$5="●●",ROW(Sheet1!$A$1:$A$5),999),ROW($A1))),"")

以上の式が、下記URLに掲載されていました。

参考URL：

http://oshiete.coneco.net/kotaeru.php3?q=2506842

お礼

ありがとうございます。
この方法は、実は先ほど試したんですが・・・・
数が少ない時には有効なんですけど・・・
データー量が、何百件となってくると重くなるのではないか？ということで却下になりました。

回答No.3

134

１）
オートフィルターを使い、取り出したい商品名のデータだけを表示して、コピー＆ペーストを行う。

２）
１）の方法をマクロの記録して、プロシージャを作成する。この後、プロシージャを修正して、汎用性のあるものに改造する

３）
　商品名１に１０００番代のＩＤナンバーをつけ、商品名２に２０００番台のＩＤナンバーをつける

商品１のシートには
　Ａ２セルあたりから
　=vlookup(1000+row()-1,sheet1!データ範囲,2,0)
のような関数を入れて、下へコピーする　など

お礼

３）確かに簡単ですね。
ありがとうございます。
これから試してみたいと思います。

補足

３）を試してみましたが、１│１│２　●●　│１　│１　│１　というように　1行を並べることができません。
何か、やり方が悪いようなんですが　何が原因なのでしょうか？

回答No.2

noname#31032

た・・・確かリアルタイム連結はできなかったと思います。
シート１のセルをシート２にコピペするのは可能だったと思いますが、シート１に入力したものがシート２に自動的に入力されるとかはできなかったかとおもいます。
あくまでファイル１とファイル２みたいな感じで、ばらばらにならないようにファイルにはさんだ紙１枚と２枚みたいな扱いだったかと・・・＞＜

お礼

やはり、自動的には無理ですか・・・・

ありがとうございます。

回答No.1

linus3030

シート１を作り
それを２と３にコピー
２と３のセルA1を　＝シート１A１として値を広い
このセルを選択コピーして
すべてのセルに形式選択貼り付けで　数式　ではりつけると
シート１の入力が　２　３に反映されるようになります。

あとはオートフィルで商品名のみを抽出

お礼

ありがとうございます。

フィルターをつかわずに直に反映させていきたいのですが・・・。
ご存知でしたらお願いいたします。