Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70633 / 76733

←次へ　｜　前へ→


	【10603】Re:抽出したい

Jaka - 04/2/3(火) 12:23 -


	引用なし

	パスワード

関数ですみません。

Sheet2

B2
=IF(ISERROR(MATCH($A2,Sheet1!B:B,0)),IF(ISERROR(MATCH($A2,Sheet1!
C:C,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!C:C,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!B:B,0),1))

C2
=IF(ISERROR(MATCH($A2,Sheet1!D:D,0)),IF(ISERROR(MATCH($A2,Sheet1!
E:E,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!E:E,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!D:D,0),1))

D2
=IF(ISERROR(MATCH($A2,Sheet1!F:F,0)),IF(ISERROR(MATCH($A2,Sheet1!
G:G,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!G:G,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!F:F,0),1))

E2
=IF(ISERROR(MATCH($A2,Sheet1!H:H,0)),IF(ISERROR(MATCH($A2,Sheet1!
I:I,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!I:I,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!H:H,0),1))

F2
=IF(ISERROR(MATCH($A2,Sheet1!J:J,0)),IF(ISERROR(MATCH($A2,Sheet1!
K:K,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!K:K,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!J:J,0),1))

G2
=IF(ISERROR(MATCH($A2,Sheet1!L:L,0)),IF(ISERROR(MATCH($A2,Sheet1!
M:M,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!M:M,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!L:L,0),1))

H2
=IF(ISERROR(MATCH($A2,Sheet1!N:N,0)),IF(ISERROR(MATCH($A2,Sheet1!
O:O,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!O:O,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!N:N,0),1))

時間が無いので、I2以降は自分でかいてね！

上記関数をSheet2の２行目に入れ、必要なところまでフィルドラッグ。
または、コピーしたいセルを選択して、セル右下にマウスポインタを当てて＋になったところで、Wクリックすると左の列のデータ分だけコピーしてくれます。

半角文字は適度に改行してくれと起こられちゃったんで、まるっきり適当に改行してあります。

4 hits

▼

【10572】抽出したい koshimizu 04/2/2(月) 14:34