エクセル データの抽出について

質問

エクセル　データの抽出について

エクセルでピッポットテーブルを作成し、その中のデータを抜き出したいのですがどうしたらよろしいのでしょうか？
エクセルの基本的な知識はあるのですがVBAについてはほとんど知識がありません。

こんな感じのデータです

　　条件１　条件2　条件3　条件4
(1)　　１　　　　　　　　　２
(2)　　　　　　　３　　　　　　　　　　　　
(3)　　５

これを

１　条件1　(1)
２　条件3　(1)
３　条件2　(2)
５　条件1　(3)

という風にしたいのですが。
縦・横の条件は100以上あり、ピッポットの合計で表されている数字は300個くらいです。
今までは手で拾っていましたが時間がかかりすぎるためにどうにかしたいと思っています。
分かりにくい質問かもしれませんがご回答宜しくお願いします。

回答No.1

MackyNo1 · ベストアンサー

添付画像のようなピボットテーブルがあるなら、以下のような関数を使って該当データを表示し、対象外のデータのみ後で削除するのが簡単です。

Ｈ1セル
=OFFSET($B$5,(ROW(A1)-1)/COUNTA($B$4:$E$4),MOD(ROW(A1)-1,COUNTA($B$4:$E$4)))

Ｉ１セル
=INDEX($B$4:$E$4,MOD(ROW(A1)-1,COUNTA($B$4:$E$4))+1)

Ｊ１セル
=INDEX($A$5:$A$7,MOD(INT((ROW(A1)-1)/COUNTA($B$4:$E$4)),COUNTA($A$5:$A$7))+1)

次にＨ列を選択してＣｔｒｌ＋Ｆで「オプション」ボタンをクリックして検索対象を「値」にして、検索あ売る文字列に「０」として「すべて置換」し、Ｃｔｒｌ＋Ａのショートカット操作で０のセルをすべて選択し、右クリックから「削除」で「行全体」を指定すればご希望のデータが抽出されますので、適宜値保存などをしてください。

ちなみにデータ数をカウントするCOUNTA($B$4:$E$4)などの数式は、どこか別セルに重複のないデータ数を計算させて、このセルを参照するほうがどのようなデータにも対応ができるので便利かもしれません。

お礼

回答ありがとうございました。
範囲指定等を変更したところばっちりでした！
本当にありがとうございましたm(_ _)m

回答No.2

tom04

こんにちは！
条件として、表内のデータは数値で重複がない！ということが前提です。

一例です。
↓の画像で左側がSheet1で右側のSheet2に表示するようにしてみました。

Sheet2のA2セルに
=IF(COUNT(Sheet1!$B$2:$GR$1000)<ROW(A1),"",SMALL(Sheet1!$B$2:$GR$1000,ROW(A1)))

B2セルに
=IF(A2="","",INDEX(Sheet1!$B$1:$GR$1,,SUMPRODUCT((Sheet1!$B$2:$GR$1000=A2)*COLUMN($A$1:$GQ$1))))

C2セルに
=IF(A2="","",INDEX(Sheet1!$A$2:$A$1000,SUMPRODUCT((Sheet1!$B$2:$GR$1000=A2)*ROW($A$1:$A$999))))

とりあえず、行に関しては1000行目まで対応できる数式に
列に関しては200列目まで対応できるようにしています。

以上、参考になれば良いのですが
他に良い方法があれば読み流してくださいね。m(__)m

お礼

回答ありがとうございました。
質問にはもれていましたが数値の重複がある可能性は０ではないようです。