エクセルで表の一部を抽出

質問

こんにちは。教えて下さい。

　エクセルで以下のような表があったとします。

メーカー　　　品番　　　　単価
ソニー　　　　ＡＢＣＤ　　５０００
東芝　　　　　ＥＦＧＨ　　７０００
ビクター　　　ＪＫＬＭ　　２０００
東芝　　　　　ＰＲＱＳ　　４０００
ビクター　　　ＴＵＶＷ　　５０００
東芝　　　　　ＸＹＺ＆　　２０００

　この表の中から、特定のメーカーのみを抽出するような方法はあるでしょうか。つまり、元表をどんどん入力していったときに、自動的に別の場所に、

東芝　　　　　ＥＦＧＨ　　７０００
東芝　　　　　ＰＲＱＳ　　４０００
東芝　　　　　ＸＹＺ＆　　２０００

　というような表が作成されていく、というような関数はあるでしょうか？　ＶＬＯＯＫＵＰあたりを使ってみるのですがうまくいきません。
　もちろん（笑）マクロなどを使わずにやりたいのですが、うまい方法があるでしょうか？

回答No.3

maruru01 · ベストアンサー

こんにちは。maruru01です。

マクロを使わずに関数でやるとなると、結構複雑になります。
まず、元の表がSheet1のA～C列にあるとします。
そして、「東芝」のデータのみをSheet2のA～C列に表示します。
なお、Sheet2も1行目は項目名とします。
Sheet2のA2に、

=IF(COUNTIF(Sheet1!$A:$A,"東芝")>=ROW(1:1),INDEX(Sheet1!A:A,SMALL(IF(Sheet1!$A$2:$A$10="東芝",ROW(Sheet1!$A$2:$A$10)),ROW(1:1))),"")

と入力して、[Ctrl]と[Shift]を押しながら[Enter]を押して決定します。
（数式の両端に「{}」が付いて、配列数式になります。）
そうしたら、これをB2、C2へコピーします。
さらに、下の行へ必要なだけコピーします。
（元のデータ数分コピーすれば十分です。）

なお、元の表のデータ範囲は適宜変更して下さい。
（元の表で入力する可能性のある最大範囲をあらかじめ指定しておきましょう。）
また、配列を使用しているため、この最大範囲が大き過ぎると非常に重くなりますので注意して下さい。

データ量が多いなら、オートフィルタやフィルタオプション（さらにそれをVBAで）でやった方がいいと思います。

お礼

こんにちは。回答ありがとうございます。

　しかし、この短時間で良くあれだけの複雑な式ができますねえ。尊敬しちゃうなあ。
　やってみましょう。しかし、元表が相当大きいのでだめかも。

回答No.5

imogasi

関数はデータ抜き出しは不得手です。しかしやるならつきあいます。あまり方法はなく、この系統の解き方はそのうちの１つでしょう。
本邦初公開（ちょっと大げさかな？）の解法。
「東芝」の現われるのはその列で何番目かと言う上行からの番数を出し、それを頼りに抜き出すというロジックでやります。
（データ）
簡単のためＡ１：Ｂ１１の２列の例にします。
東芝 ａ
松下 ｂ
東芝 ｃ
シャープ ｄ
東芝 ｅ
三洋 ｆ
東芝 ｇ
サムスン ｈ
タイガー ｉ
ＴＯＴＯ ｊ
東芝 ｋ
（関数式）
余分な列を１列使います。Ｅ列とします。
Ｅ１に=COUNTIF($A$1:A1,"東芝")
といれ、Ｅ２以下に複写します。＄の入れる場所がミソです。
値は
1
1
2
2
3
3
4
4
4
4
5
5
となります。
（関数式）
Ｇ列に東芝だけ持ってくるとして、
Ｇ１に=OFFSET($A$1,MATCH(ROW(),$E$1:$E$15,0)-1,0)
と入れ、Ｇ２以下最少でも、Ｇ５（５個あるから）まで複写してください。東芝が並びます。
Ｈ１に=OFFSET($A$1,MATCH(ROW(),$E$1:$E$15,0)-1,1)
といれ、Ｈ５まで複写します。
ａ
ｃ
ｅ
ｇ
ｋ
となります。
Ｇ６以下に複写すると、＃Ｎ／Ａが出ますが、これの消し方はご存知だとして略します。
$E$1:$E$15など１５と言う数字が出ますが、入力予定最下行数で置換えて下さい。
Ｃ、Ｄ列に情報（データ）があるとき、Ｉ，Ｊ列に持ってくる式の変更箇所は判りますね。

回答No.4

free-goo

私も　マクロやＶＢＡは詳しくなく　素人感覚でエクセルをしているものです　よく似た事をしたことがありますので　暇つぶしにでも見て下さい。
元表をsheet1 抽出後をsheet2に・・・
元表のＡ列に数式をいれます。
１行目は　数字の「０」ゼロです
２行目に計算式 if(B2=sheet2!$A$1,A1+1,A1)
３行目以降は　２行目の数式をコピーします。
元表は　計算式・メーカー・品番・単価になります。

抽出後のｓｈｅｅｔ２のＡ１の部分に　抽出したい　メーカー名を入れます。例でいくと「東芝」
そうすると元表は

0　　メーカー　　　品番　　　　単価
0　　ソニー　　　　ＡＢＣＤ　　５０００
1　　東芝　　　　　ＥＦＧＨ　　７０００
1　　ビクター　　　ＪＫＬＭ　　２０００
2　　東芝　　　　　ＰＲＱＳ　　４０００
2　　ビクター　　　ＴＵＶＷ　　５０００
3　　東芝　　　　　ＸＹＺ＆　　２０００
となっているはずです。
抽出後ほうで　ＶＬＯＯＫＵＰ関数を使用れば　出来ると思いますが・・・・

回答No.2

noname#5584

フィルタを掛けて、指定条件のデータのみ表示した後、表示行／列のみをコピーし、別のシートに貼り付ければOKです。

一例ですが、Sheet1の表示行／列をSheet2に貼り付ける場合、下記の要領です。

Sub Test()
With Application
.Worksheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy
.Worksheets(2).Paste
End With
End Sub

・・・ですが、

> マクロなどを使わずにやりたい

というご希望ですので、残念ながら無理です。

お礼

こんにちは。素早い回答ありがとうございます。
　やっぱりマクロを勉強しなきゃなあ。

回答No.1

kumi-n

メーカー　品番　単価　の行を１行選択。

データ　→　フィルタ　→　オートフィルタ
を設定する。

メーカー▼　品番▼　単価▼
と表示されます。

あとは▼の所をクリックし東芝を選択すれば東芝だけが抽出されます。

これではだめですか？

お礼

こんにちは。さっそく回答ありがとうございます。

　なるほど・・・できますね。しかしこれだと、元表を打ち終わったあとにやらなくてはなりませんね。うーん、でもいいかなあ・・・。