[[20190810230426]]　『VBAを使わず、複数行を抽出する方法』（キッド）　ページの最後に飛ぶ

『VBAを使わず、複数行を抽出する方法』（キッド）

VBAを使わず、複数行を確実に抽出する方法を知りたいのですが可能でしょうか？

データシートの1行目に項目名・２行目からデータがあるのですが、
抽出シートのB１に検索値(姓)を入れて、B5からデータシートのB～D列を抽出していきたいです。（余計なデータは入れず、サクッと別ブックにコピペしていきたいため）

データシート

   A 　　 B  　 C    D   E  F ～
   ________________________
1 |番号　姓　　名　社名　～　～　
2 |10    藤　　良　A社　～　～
3 |50    山田　敦　B社　～　～
4 |80    秋山　順　B社　～　～
5 |80    藤　　佳　C社　～　～

抽出シート

   A 　　 B   C    D   E  F ～
   ________________________
1 |    　藤　
2 |
3 |
4 |
5 |　    藤　良　A社　
6 |　    藤　佳　C社

A５セルに下記の式を入れているのですが、
下記の条件があり、なかなか厳しい状態です"(-""-)"

・VBAは使用者が全く使えないため、関数で作成
・下記式では、並べ替えをしないと、正しく抽出されない
・データの中には、フリガナがあり、正しく並べ替えできない

=IF(COUNTIF('データ'!$J$2:$J$1000000,$B$1)<ROW(A1),"",IF(OFFSET('データ'!A1,MATCH($B$1,'データ'!$J$2:$J$1000000,0),0)<>"",OFFSET('データ'!A1,MATCH($B$1,'データ'!$J$2:$J$6261,0),0),""))

なにか関数で複数行抽出する良い方法があったら
教えて頂きたいです。
よろしくお願い致します

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

＞余計なデータは入れず、サクッと別ブックにコピペしていきたいため

オートフィルタで抽出して、それを別ブックにコピペではだめなのですか。

（マナ） 2019/08/10(土) 23:35

コメントありがとうございます。
実際は、B・C・Dに加え、G・K・L・U・Z・AB列も抽出せねばならず、
オートフィルターで抽出したとしても、
上の列のデータのみコピペしていくのは非常に手間（月に約100件検索を繰り返す）なので、
その列だけ抜き出そうという魂胆です。
よろしくお願い致します<m(__)m>
（キッド） 2019/08/10(土) 23:44

追記：
データシートは他の社員も使うので、
列の入れ替えも、控えたい次第です。
（キッド） 2019/08/10(土) 23:45

フィルタオプションを使うと、
条件にあったデータの、任意の列の情報を別の箇所に抽出できます。

（γ） 2019/08/10(土) 23:53

コメントありがとうございます。
最初にフィルターオプションを設定しておけば、
１００件分、１回１回フィルターオプションを設定しなおさなくても
検索条件を変えるだけで反映される方法はありますか？
（キッド） 2019/08/11(日) 00:08

同じセル範囲のなかにカーソルを置いて、詳細設定のボタンを押せば、
前の設定が再現されるので、微修正すればよいのでは？
試してみて下さい。
どうしてもということなら、マクロになりますが、ほんの数行のもので対応できます。

（γ） 2019/08/11(日) 00:17

＞実際は、B・C・Dに加え、G・K・L・U・Z・AB列も抽出せねばならず、
＞オートフィルターで抽出したとしても、
＞上の列のデータのみコピペしていくのは非常に手間

１）オートフィルタで絞り込みなし
２）不要な列を非表示

の状態を、「ユーザー設定のビュー」に登録しておくのはだめですか。
これなら、表示された列だけコピペできます。

（マナ） 2019/08/11(日) 09:02

コメント返信：

[ 一覧(最新更新順) ]

[[20190810230426]] 『VBAを使わず、複数行を抽出する方法』（キッド） ページの最後に飛ぶ

[[20190810230426]]　『VBAを使わず、複数行を抽出する方法』（キッド）　ページの最後に飛ぶ