住所録から特定住所を別シートに抽出分類できるか？

エクセル2010で作成した住所録にある特定の町名をグルーピングして別のシートに分類したいのです。シート１の住所録本体のＡ列は氏名、Ｂ列は町名と丁目（〇〇町◆丁目）、Ｃ列は番地を入力します。その他の列にもいくつか入力項目があります。やりたいことは、Ｂ列の町名と丁目を入力すると自動的に他のシートにグルーピングして分類できるようにしたいのです。分類の際、次のような場合があります。たとえば、Ａ町1丁目とＢ町2丁目が同じグループ、つまり同じシートに分類する必要があります。また、単独でＣ町3丁目は一つのグループとして分類する場合ももちろんあります。マクロ等、エクセルの専門的な知識はもちあわせていません。関数の組み合わせでできそうな気がしていますが、なにぶん技量不足のためわかりません。どなたかご教授ねがいます。宜しくお願いします。

No.4 ベストアンサー 回答者： KURUMITO 回答日時： 2013/04/30 16:39

例えば元の表がシート1に有るとしてＡ3セルから下方に氏名が、Ｂ3セルから下方に町名と丁目がＣ3セルから下方に番地が入力されているとします。

Ｆ列まで利用されているとしてＧ列から右の列は作業列します。
Ｇ1セルから右の方向にはグルーピングしてそれぞれを異なったシートに表示させるときのシート名を入力します。例えばSheet2、Sheet3、・・・・　などと入力します。
Ｇ2セルから右横方向のセルにはＡ町1丁目などと入力します。同じグループに二つの町名が入る場合にはA町1丁目/Ｂ町2丁目などと/を入れて入力します。ここでは2つの町名までを1グループとして処理できる方法を示します。
そのためにＧ3セルには次の式を入力して右横方向にドラッグコピーしたのちに下方向にもドラッグコピーします。

=IF(COUNTIF(G$2,"*/*")>0,IF(COUNTIF($B3,"*"&LEFT(G$2,FIND("/",G$2)-1)&"*")+COUNTIF($B3,"*"&MID(G$2,FIND("/",G$2)+1,10)&"*")>0,MAX(G$2:G2)+1,""),IF(COUNTIF($B3,G$2)>0,MAX(G$2:G2)+1,""))

これで同じグループに所属する場合には1から順に番号が表示されます。
そこでお求めの表ですがグループごとに表示させるシートについて（シート1を除く）Ｃｔｒｌキーを押しながらそれぞれの名前のシート見出しをクリックして同じ作業グループを作ります。
そのうちのあるシートが画面にあるわけですがそのシートのＡ1セルにはそのシートのシート名を例えばSheet2のように入力します。
2行目にはシート1と同じ項目名を入力します。
Ａ3セルには次の式を入力して右横方向にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(A$2="","",IFERROR(INDEX(Sheet1!$A:$F,MATCH(ROW(A1),INDEX(Sheet1!$A:$XX,1,MATCH($A$1,Sheet1!$1:$1,0)):INDEX(Sheet1!$A:$XX,1000,MATCH($A$1,Sheet1!$1:$1,0)),0),COLUMN(A1)),""))

2行目には必ず項目名を入力ことが必要です。
最後にシート1を選択することで作業グループを解除します。
シート1を除く他のシートについてＡ1セルにシート1で決めたグループごとのシート名を入力することで、そのグループだけのデータが表示されることになります。

No.3 回答者： pidum 回答日時： 2013/04/30 14:42

住所録データがsheet1にあり、sheet1に作業列として数式を挿入する事とします。

データ抽出はsheet2に行い、町名検索は２住所まで可能とし、町名リストを入力規則のリストからドロップダウンリストから取得出来るものとします。

１．住所リスト１、２をセルA6～B6に作成するものとした。

２．セルA2に入力規則のリストで住所リスト１によるドロップダウンリストを作成します。
ドロップダウンリストの作成方法は下記参照。（他のシートのデータでドロップダウンリストを作成する事は可能ですが、その場合は、他のシートで住所リスト１のデータ範囲を名前の定義を行う必要があります。）
http://kokoro.kir.jp/excel/list-name.html

３．検索住所２セルB1に数式=IF(VLOOKUP(A2,A6:B14,2,0)="","",VLOOKUP(A2,A6:B14,2,0))

４．sheet1の住所録データの任意の列に作業列を作成する。今回はD列に作成する事とした。
セルD2に式=IF(Sheet2!$B$2<>"",IF(OR(B2=Sheet2!$B$2,B2=Sheet2!$A$2),ROW(),""),IF(B2=Sheet2!$A$2,ROW(),""))
住所録データがある行までフィルコピー

５．sheet2のデータ抽出関数を入力
氏名欄D2式=IF(COUNT(Sheet1!$D:$D)<ROW(Sheet1!A1),"",INDEX(Sheet1!A:A,SMALL(Sheet1!$D:$D,ROW(Sheet1!A1))))
町名欄E2式=IF(COUNT(Sheet1!$D:$D)<ROW(Sheet1!A1),"",INDEX(Sheet1!B:B,SMALL(Sheet1!$D:$D,ROW(Sheet1!A1))))
番地欄F2式=IF(COUNT(Sheet1!$D:$D)<ROW(Sheet1!A1),"",INDEX(Sheet1!C:C,SMALL(Sheet1!$D:$D,ROW(Sheet1!A1))))
D2～F2を必要行下記にフィルコピー
ROW(Sheet1!A1)は式は固定ですので、どこのセルから式を始めてもこの記入は変更ありません。住所録データの列により数式変更して下さい。
抽出データに自動で罫線は引きませんので、罫線はご自身で。

結果は画像参照下さい。

No.2 回答者： tsubuyuki 回答日時： 2013/04/30 01:37

失礼ながら、質問で返します。

> たとえば、Ａ町1丁目とＢ町2丁目が同じグループ、
> つまり同じシートに分類する必要があります。
> また、単独でＣ町3丁目は一つのグループとして分類する場合ももちろんあります。

との事ですが、「グループの分類」はどのような条件の下で行われているのでしょうか？


例えば「グループ」と冠した列で分類されているのであれば、
　フィルタ→「グループ」で抽出→コピー→別シートにペースト
の流れで処理を行うのが一番確実で早い方法と言えると思います。

コレが無い、つまり力技で判断しているとすると、かなり厄介です。
一つ一つフィルタをかけてコピー、フィルタをかけてコピー・・と繰り返す必要があります。
エクセルには「Ａ町１丁目とＢ町２丁目は同一、Ｃ町３丁目は別」と判断できないからです。
（人の手でも一緒ですね。何かしらルールが無いと分類は不可能です。）

ですので、関数の組み合わせでは「お望みの処理はできません」と言うのが直接の回答です。

No.1 回答者： hallo-2007 回答日時： 2013/04/29 23:06

エクセルのフィルターオプションという機能をご存知でしょうか。

とりあえず
http://www.eurus.dti.ne.jp/yoneyama/Excel/filter …
を参考にしてください。
別シートにB列の抽出条件を複数記入できるシートを準備すればOKだと思います。
とりあえず、上記サイトをじっくり勉強してみてください。