excelで複数条件での検索方法

質問

列１　　列２　　列３　　列４　　列５　　列６　　列７　　列８　　　列９　　　列１０　　列１１　　　列１２
１　　　　０　　　　１　　　　０　　　　１　　　１　　　１　　名前　　　住所　　　電話　　名前２　　名前３
１　　　　１　　　　０　　　　１　　　　１　　　０　　　１　　名前　　　住所　　　電話　　名前２　　名前３
１　　　　１　　　　１　　　　１　　　　０　　　１　　　０　　名前　　　住所　　　電話　　名前２　　名前３
のような表があります。（名前２、名前３は全てに入っているわけではありません）
列１が”１”で、列２が”１”で列３が”０”の条件の時、別のシートに、
１行目の名前、住所、電話
１行目の名前２、住所、電話
１行目の名前３、住所、電話というように表示したいのです。（名前２、名前３が無い時は次の条件にあったデータを表示したい。
１行目の名前、住所、電話
１行目の名前２、住所、電話
２行目の名前、住所、電話
３行目の名前、住所、電話
３行目の名前２、住所、電話といった感じです。
マクロのCASE文で振り分けて、・・・・といろいろ試しましたがうまくいきません。

よろしくご教授願います。

回答No.4

keithin

淡々と必要なモノを転記していくだけです。

手順：
シート１からシート２に転記する

sub macro1()
　dim i, j
　dim a
　a = array(8, 11, 12)　’対象にする名前列

　worksheets("Sheet2").cells.clearcontents
　worksheets("Sheet2").range("A1:C1") = array("名前","住所","電話")
　worksheets("Sheet1").select

　for i = 2 to range("A65536").end(xlup).row
　’縦ループ，条件合致調査
　　if cells(i, 1) = 1 and cells(i, 2) = 1 and cells(i, 3) = 0 then
　　for j = 0 to 2
　’横ループ，名前があれば転記
　　　if cells(i, a(j)) <> "" then
　　　with worksheets("Sheet2").range("A65536").end(xlup).offset(1)
　　　　.value = cells(i, a(j))
　　　　.offset(0, 1).resize(1, 2).value = cells(i, 9).resize(1, 2).value
　　　end with
　　　end if
　　next j
　　end if
　next i
end sub

回答No.3

mt2008

添付の図の様に、1行目に項目名が入っているとします。
Sheet2のA1:C1は、Sheet1のA:C1と同じ項目名を入れてください。
Sheet2のA2:C2は検索条件の入力欄です。

Sheet2のE2セルに↓を入れてG2までコピー
=IF(ISERR(DGET(Sheet1!$A$1:$L$4,Sheet1!H1,$A$1:$C$2)),"",DGET(Sheet1!$A$1:$L$4,Sheet1!H1,$A$1:$C$2))

Sheet2のE3セルに↓
=IF(ISERR(DGET(Sheet1!$A$1:$L$4,Sheet1!K1,$A$1:$C$2)),"",DGET(Sheet1!$A$1:$L$4,Sheet1!K1,$A$1:$C$2))

Sheet2のE4セルに↓
=IF(ISERR(DGET(Sheet1!$A$1:$L$4,Sheet1!L1,$A$1:$C$2)),"",DGET(Sheet1!$A$1:$L$4,Sheet1!L1,$A$1:$C$2))

Sheet2のF3セルに↓を入れてF3:G4にコピー
=IF(E3<>"",F2,"")

Sheet2のA2:C2の検索条件を変えれば、それに合致した情報を表示します。

回答No.2

mu2011

一例です。
>（名前２、名前３が無い時は次の条件にあったデータ表示
　⇒この条件が不明なので後でカスタマイズして下さい。

該当シートタブ上で右クリック→コードの表示→サンプルコード貼り付け→ショート上でAlt+F8キー押下→sample実行（因みにSheet2に抽出します）

Sub sample()
Dim i As Long, j As Long, cnt As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = 1 And Cells(i, "B") = 1 And Cells(i, "C") = 0 Then
With Sheets("sheet2")
cnt = cnt + 1
.Cells(cnt, "A").Resize(, 3).Value = Cells(i, "H").Resize(, 3).Value
For j = 11 To Cells(i, Columns.Count).End(xlToLeft).Column
cnt = cnt + 1
.Cells(cnt, "A").Resize(, 3).Value = Cells(i, "H").Resize(, 3).Value
.Cells(cnt, "A") = Cells(i, j)
Next
End With
End If
Next
End Sub

補足

分かりにくい説明で申し訳ありません。
１行目は条件に合わないため読み飛ばします。
２行目は条件にあっているために出力します。名前２、名前３は、家族名が入っている場合には入力されていますが、何も入っていないこともあります。その場合、名前２、名前３は出力しないようにしたいのです。（名前２だけのときもありますが、名前２がなく、名前３が入っていることはありません。
表を１行目から順に読み込み、条件に合った行を別シートに出力する。
その場合、名前２があった場合は、２行出力することになります。名前３があった場合は、３行出力することになるということです。

回答No.1

mt2008

補足願います。
列1,2,3の値が1,1,0に合致するのは2行目だと思いますが、合致した行の1つ上の行の値を表示するのですか？その場合、一番上の行が合致した場合、どうします？
また、名前2,3が無い時の条件も良く判りません。

もう少し、具体的な例を挙げてください。