表の中から特定のデータを別のシートに抜き出したいのですが、オートフィル

質問

表の中から特定のデータを別のシートに抜き出したいのですが、オートフィル以外で

たとえば　Ｓｈｅｅｔ１　に

,,,,,,,,,,,,,Ａ,,,,,,,,,,,,,,,Ｂ,,,,,,,,,,,,Ｃ
１,,,,,,,,科目,,,,,,,,,,,項目,,,,,,,,金額
２,,,,,,,,売上,,,,,,,,,,,客Ａ,,,,,,,,5000円　
３,,,,,,,消耗品,,,,,,,,店Ａ,,,,,,,,1000円
４,,,,,,,立替金,,,,,,,,客Ｃ,,,,,,,,8000円
５,,,,,,,消耗品,,,,,,,,店Ｂ,,,,,,,,3000円
６,,,,,,,売上,,,,,,,,,,,,客Ｂ,,,,,,,,2000円
７,,,,,,,売上,,,,,,,,,,,,客Ｃ,,,,,,,,2500円
８,,,,,,,立替金,,,,,,,,客Ｄ,,,,,,,,4800円
９,,,,,,,消耗品,,,,,,,,店Ｃ,,,,,,,,10000円

（,,,,はスペースとお考え下さい）

上記のような表から、項目ごとに抜き出して
別のシートに（Ｓｈｅｅｔ２）

,,,,,,,,,,,,,Ａ,,,,,,,,,,,,,,,Ｂ,,,,,,,,,,,,Ｃ
１,,,,,,,,科目,,,,,,,,,,,項目,,,,,,,,金額
２,,,,,,,,売上,,,,,,,,,,,客Ａ,,,,,,,,5000円　
３,,,,,,,売上,,,,,,,,,,,,客Ｂ,,,,,,,,2000円
４,,,,,,,売上,,,,,,,,,,,,客Ｃ,,,,,,,,2500円　

また別のシートに（Ｓｈｅｅｔ３）
,,,,,,,,,,,,,Ａ,,,,,,,,,,,,,,,Ｂ,,,,,,,,,,,,Ｃ
１,,,,,,,,科目,,,,,,,,,,,項目,,,,,,,,金額
２,,,,,,,消耗品,,,,,,,,店Ａ,,,,,,,,1000円
３,,,,,,,消耗品,,,,,,,,店Ｂ,,,,,,,,3000円
４,,,,,,,消耗品,,,,,,,,店Ｃ,,,,,,,,10000円

さらに別のシートに（Ｓｈｅｅｔ４）

,,,,,,,,,,,,,Ａ,,,,,,,,,,,,,,,Ｂ,,,,,,,,,,,,Ｃ
１,,,,,,,,科目,,,,,,,,,,,項目,,,,,,,,金額
２,,,,,,,立替金,,,,,,,,客Ｃ,,,,,,,,8000円
３,,,,,,,立替金,,,,,,,,客Ｄ,,,,,,,,4800円

のように、抜き出して表示させたいのです。

その場合、オートフィル（フィルタオプション）を使用しようと思ったのですが
最初　Ｓｈｅｅｔ１　の表を書いてしまってから抽出するのはできそうなのですが
項目を変更したり、最初の表が間違っていたので直したりしても
また改めて抽出しなおさなくてはならないようで
自分の思っている抽出の仕方ができません。

自分が思っているのでは
項目と数値を入れ替えれば、自動的に抽出してくれるようなものなのですが
そのようにする関数（エクセルの機能のなかのものでもかまいません。）は無いでしょうか？
方法が少々面倒でもかまいません。

どうぞよろしくお願いします。

回答No.2

KURUMITO · ベストアンサー

簡単で分かりやすい方法はシート1には作業列を作って対応することでしょう。
例えば1行目が項目名でデータは2行目からあるとしてＥ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A2="","",A2&COUNTIF(A$2:A2,A2))

その後にシート2をアクティブにします。次にＣｔｒｌキーを押しながらシート見出しでSheet3,Sheet4,Ｓheet5などと必要なシートをクリックして同じ作業グループにします。その上でシート2のＡ1セルには売上の文字を入力します。2行目のＡ2セルには科目、Ｂ2セルには項目、Ｃ2セルには金額と入力します。
その後にＡ3セルには次の式を入力して右横方向にオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(OR(A$2="",COUNTIF(Sheet1!$E:$E,$A$1&ROW(A1))=0),"",INDEX(Sheet1!$A:$C,MATCH($A$1&ROW(A1),Sheet1!$E:$E,0),COLUMN(A1)))

これによってシート2には売上項目だけのデータが表示されます。そこでシート見出しを右クリックして「作業グループの解除」を選択します。シート3以降のシートにも売上のデータが表示されていますが、各シートでＡ1セルのデータを変えることで、例えばシート3のＡ1セルのデータを消耗品とすることで、消耗品だけのデータがシート3に表示されるようになります。

回答No.3

MackyNo1

科目ごとのシートを作成して、数式で該当するデータを表示するのは、再計算に時間がかかり動きが重くなるのでお勧めできませんが、たとえば1枚のシートのF1セルに抽出したい科目を入力し（または入力規則のリストで科目が選択できるようにしておき）、F1セルに入力した科目のデータをA2セル以下に表示させるなら以下のような数式を入力し、右方向に３つ下方向に適当数オートフィルコピーします。

=INDEX(Sheet1!A:A,SMALL(INDEX((Sheet1!$A$2:$A$1000<>$E$1)*1000+ROW($A$2:$A$1000),),ROW(A1)))&""

回答No.1

keithin

たとえば　Ｓｈｅｅｔ１　に

Ａ,,,,,,,,,,,,Ｂ,,,,Ｃ,,,,,Ｄ
番号　　　　科目　項目　金額
売上-1　　　売上　客Ａ　5000円　
消耗品-1　消耗品　店Ａ　1000円
立替金-1　立替金　客Ｃ　8000円
消耗品-2　消耗品　店Ｂ　3000円
売上-2　　　売上　客Ｂ　2000円
売上-3　　　売上　客Ｃ　2500円
立替金-2　立替金　客Ｄ　4800円
消耗品-3　消耗品　店Ｃ　10000円

A2:
=IF(B2="","",B2&"-"&COUNTIF($B$2:B2,B2))
以下コピー。

別のシートに（Ｓｈｅｅｔ２）

,,,,,,,,,,,,,Ａ,,,,,,,,,,,,,,,Ｂ,,,,,,,,,,,,Ｃ
１,,,,,【,売上,】,,,,,,,,,項目,,,,,,,,金額
２,,,,,,,,売上,,,,,,,,,,,客Ａ,,,,,,,,5000円　
３,,,,,,,売上,,,,,,,,,,,,客Ｂ,,,,,,,,2000円
４,,,,,,,売上,,,,,,,,,,,,客Ｃ,,,,,,,,2500円　

A2に
=IF(ROW(A1)>COUNTIF(Sheet1!B:B,$A$1),"",$A$1)
B2に
=IF(A2="","",VLOOKUP(A2&"-"&ROW(A1),Sheet1!A:D,3,FALSE))
C2に
=IF(A2="","",VLOOKUP(A2&"-"&ROW(A1),Sheet1!A:D,4,FALSE))

＃ピボットテーブルレポートの方がもっと簡単ですが，多分絶対に使わないので説明は割愛します。

＃余談デスが
作業列を使わないちょーメンドクサイ数式も過去ログを探せば山ほど出てきます。
それを見た初心者さんがなんだか凄くて良さそうと飛びつく難しそうな数式ですが，ご相談の用途では重たすぎて実用的ではありません。また率直にオートフィルとオートフィルタの区別が付いてないぐらいの不慣れな方にはちょっとメンテナンスもできないので，やはり使わない方が良いでしょう。