[[20120606170133]] 『一覧から条件に合う全ての値を抜き出す』(ラブラダ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『一覧から条件に合う全ての値を抜き出す』(ラブラダ)

Excel2003 WindowsXP

   一覧           抜き出し結果
  A  B C        A B  C
1 あ い い       あ い い
2 か き く       あ う え
3 あ う え       あ お お
4 さ し す
5 あ お お
一覧の中からA列の「あ」の行を全て抜き出したいのです。
VLOOKUP関数で行うと条件に合う最初の1行のみ「あいい」表示されます。
膨大な一覧から必要なものだけ抜き出したいのですが、そのたびにオートフィルタで抜き出しコピペも手間がかかるので関数でどうにかしたいと思っています。
よい方法があれば教えてください。
 


 結果を別の列に出力する場合(20は範囲に合わせて適当に変更してください)、
 F1:=IF(ROW(A1)>SUMPRODUCT(($A$1:$A$20="あ")*1),"",INDEX(A$1:A$20,SMALL(INDEX(SUBSTITUTE(($A$1:$A$20="あ")*1,0,10^5)*ROW($A$1:$A$20),),ROW(A1)))&"")
 で Ctl+Shift+Enter
 F1 をコピーして、F2:F20 に貼付け。
 F列をコピーして、G:H 列に貼付け。
 でどうでしょうか。
 (Mook)

ありがとうございます。
狙い通りにできました。
知らない関数もありましたのでもっと
勉強していきたいと思います。
実際はもう少し複雑なものですが
後は自力でやりたいと思います。
Mookさん本当にありがとうございました。
(ラブラダ)

一覧から条件に合う全ての値を抜き出す
Excel2003 WindowsXP
   一覧        抜き出し結果
  A  B C        A  B  C
1 あ い い       あ い い
2 か き く       あ う え
3 あ う え       あ お お
4 さ し す
5 あ お お
一覧の中からA列の「あ」の行を全て抜き出したいのです。
VLOOKUP関数で行うと条件に合う最初の1行のみ「あいい」表示されます。
膨大な一覧から必要なものだけ抜き出したいのですが、そのたびにオートフィルタで抜き出しコピペも手間がかかるので関数でどうにかしたいと思っています。
F1:=IF(ROW(A1)>SUMPRODUCT(($A$1:$A$20="あ")*1),"",INDEX(A$1:A$20,SMALL(INDEX(SUBSTITUTE(($A$1:$A$20="あ")*1,0,10^5)*ROW($A$1:$A$20),),ROW(A1)))&"")
で Ctl+Shift+Enter
F1 をコピーして、F2:F20 に貼付け。
F列をコピーして、G:H 列に貼付け。
これは出来るのですが、セル番地を変えたら答えが出ません。
   AA AB AC AF AG AH
1106 あ い い
1107 か き く
1108 あ う え
1109 さ し す
1110 あ お お
AF1106にいれる式を教えてください。
どうかよろしくお願いします。
(shota)


まだばらまきしてるの?
そこではたらくしきはおしえてもらえるかも
しれないけど、それをみたひともおうようでき
ないといみがないよ。


名無しのごんベーさんへ
もうばら撒きはしていませんよ
なぜならパソコンとテレビが一体となったものを買ってしまったからテレビを見るほうが面白いから「エクセルの学校」と「オンライン囲碁ゲーム」をする以外はパソコンのほうには来ませんよ
学校の質疑応答で面白いなと思ったものは、相変わらず集めています。
1ファイル1メガにして今25ファイルほどたまっています。
集めるのが趣味なんですよ。


 >集めるのが趣味なんですよ。
 その集めた物の中(或いは、集める為の質疑)の中に
 今回の件の解決方法も入っていたと思います。

 一回で理解出来い場合 何度も質問すれば良いと思いますが
 理解しようとする気が無く、何度も質問するのは 又違っていると思います。

 ↓は同じ仕組みの式になっています。
[[20060302144720]] 『90より以上の人の名前を抽出したい』(shota)

 この式は、ROW関数の結果に加減計算がされていませんので
 先頭の式に関してROW関数の引数が
 1.単独の部分 −−− ROW(A1) と書いてある部分 
    ・・・どの列でも良いので、1行目のセルを参照
 2.複数の部分 −−− ROW($A$1:$A$20) と書いてある部分
    ・・・他の数式の引数と同じ行数分のセル範囲で
       その列でも良いので、1行目からの範囲
 に変更して下さい。

 今は単純に
INDEX(AF$1106:AF$1125,SMALL(INDEX(SUBSTITUTE(($AF$1106:$AF$1125="あ")*1,0,10^5)*ROW($AF$1106:$AF$1125),),ROW(AF1106)))&""
 の様に成っていると思いますので、「ROW($AF$1106:$AF$1125)」「ROW(AF1106)」部分を
 大きさはそのままで1行目のセルから始まる様に変更して下さい。

 (HANA)

 > F1:=IF(ROW(A1)>SUMPRODUCT(($A$1:$A$20="あ")*1),"",INDEX(A$1:A$20,SMALL(INDEX(SUBSTITUTE(($A$1:$A$20="あ")*1,0,10^5)*ROW($A$1:$A$20),),ROW(A1)))&"") 
 > で Ctl+Shift+Enter 

 なんで Ctl+Shift+Enter なんですかね?
 普通にEnterで確定でもいいような気がしますが。

 SUMPRODUCTを使っているのもよくわかりません。

 あくまでその数式の修正ということなら、INDEXのあとを列全体にして
 ↓ でもいいと思いますけど。

 =IF(COUNTIF($AA$1106:$AA$1125,"あ")<ROW(A1),"",INDEX(AA:AA,SMALL(INDEX(SUBSTITUTE(($AA$1106:$AA$1125="あ")*1,0,10^5)*ROW($AA$1106:$AA$1125),0),ROW(A1)))&"")

 普通にEnterだけで確定し、右・下コピー

 ところで「膨大な一覧」とありますけど、具体的に何行×何列の表なんですか?

 (JPN)


 『公開』(yanchakun_007)
[[20110917213727]]

 コレ。思い出した。

 て、いうか以前にいろいろQ&Aサイトを公開していたのなら
 HANAさん回答のように、このような内容いくらでもあったんじゃない?

 収集するだけでなく、応用しようよ。

 皆さんの回答の通り、今回はROW関数の引数に注意するだけ。

 (GobGob)

 >(shota) 
 この方は元々の質問者さんとは別の人?
 よくわかりませんけど一応補足

 Ctrl+Shift+Enterで確定することに抵抗がなければ

 =IF(COUNTIF($AA$1106:$AA$1125,"あ")<ROW(A1),"",INDEX(AA:AA,SMALL(IF($AA$1106:$AA$1125="あ",ROW($AA$1106:$AA$1125)),ROW(A1)))&"")

 Ctrl+Shift+Enterで確定し、右・下コピー

 最後の &"" が必要かどうかはこの質問では判断できません。
 必要なのはAA列が「あ」で、他の列に未入力セルがある場合。
 例題のように未入力セルがなければ不要です。
 &"" があると、もし数値データがあったら文字列になってしまいます。

 (JPN)


JPN様 GobGob様ご指導ありがとうございます。
 もう私の手ではどうすることも出来なく諦めていました。
 感謝感謝です。
 私事ですが、22歳で消防に奉職し、46歳で脳梗塞となり、右半身不随となりました。
 脳梗塞の原因は、救命士制度が発足し、救命率は飛躍的に伸びました。
 救命士が行う応急処置は医師の指示の元行うものですが、何もしなくて早く搬送して医師に任せても良かったのですが、気の弱い私は応急処置はしなくてはいけないと心に決め従事していた挙句、その任務感が心に圧迫
を与えるようになり、やがてストレスとなりとうとう脳梗塞になってしまったのです。
 家でボーーとしていたら息子がパソコンを買ってきて「これで時間つぶしでもしてよ」
 そしてエクセルに出会ったんです。エクセルはすばらしいソフトだと思います。
 そして学校でついつい人の質問に横から入りご迷惑をかけてばかりでいた。
 皆様には本当にいやな思いばかりかけて本当にすみませんでした。
 今後は気をつけていきますのでどうかよろしくご指導お願いいたします。
 (shota)

 今までの流れを見ても自分の障害をわざわざ書き込みして今までの謝罪をして、そしてまた同じことを繰り変えすってのをやってるから、
 またかいとしか思えないね。

 しかも前回の公開依頼(依頼って態度でもなかったが)で管理人のkazuさんからの回答を無視して放りぱなしなの見ると
 どうせ今回もくちさきだけなんでしょ?
 (独覚)

 >今後は気をつけていきますのでどうかよろしくご指導お願いいたします

 何回目なんだろ?


もう絶対に皆様に不快な思いはさせません。
ここに誓います。

_____

(笑)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.