エクセル 指定列で０値以外の行を別のシートに自動で行全体を抽出

ある列のデータが０値の（空白を含む）とき、それ以外の行を別のシートに自動的に抽出するシートを作成したい。
例
210　0　山田
211　　 森
212　1　伊藤
213　2　島

　　↓

212　1　伊藤
213　2　島　　　別のシートに自動的に表示させる

No.1 ベストアンサー 回答者： imogasi 回答日時： 2004/07/27 07:09

（例データ）Sheet1のA1:C8（D列は後刻算出列）

（A）　（B)　　　（C)　　　（D)
2100山田1
211森2
2121伊藤2
2132島2
214木村3
2154大原3
2160日村4
217小原5
（関数式）
D1に=IF(A1="","",COUNTIF($B$1:B1,0)+COUNTBLANK($B$1:B1))
D1の式をD20まで複写。２０は見込み最下行数。
上記D列のようになる。
（関数式）Sheet2で
A1に=IF(ROW(A1)>MAX(Sheet1!$D$1:Sheet1!$D$20),"",OFFSET(Sheet1!$A$1,MATCH(ROW(),Sheet1!$D$1:$D$20,0)-1,0))
A2以下A20まで複写。
B1に=IF(ROW(B1)>MAX(Sheet1!$D$1:Sheet1!$D$20),"",OFFSET(Sheet1!$A$1,MATCH(ROW(),Sheet1!$D$1:$D$20,0)-1,1))
B2以下にB20まで複写する。
C1に=IF(ROW(C1)>MAX(Sheet1!$D$1:Sheet1!$D$20),"",OFFSET(Sheet1!$A$1,MATCH(ROW(),Sheet1!$D$1:$D$20,0)-1,2))
C2以下にC20まで複写する。
（結果）
2100山田
2110森
2140木村
2160日村
2170小原

この回答へのお礼

ありがとう御座いました。まだまだ、初心者なので頑張ります。

お礼日時：2004/07/27 17:57