エクセル 検索結果を別シートで表示する方法

質問

はじめて質問をさせていただきます。

当方基本的な関数が使える程度で、今回の質問する内容を
どう処理したらいいか分からなくなっております。

画像添付いたしました表をもとに、別シートで
例えば
１と入力するとaという名前と、○の付いている日付、4月7日、5月8日
を表示させる方法について教えていただけないでしょうか？
日付については同一セルであってもなくても構いません。

初歩的な質問で申し訳ありませんが、どうぞよろしくお願いいたします。

回答No.2

noname#204879 · ベストアンサー

こんな方法もある、ということで…

Sheet1!H2: =TRIM(IF(C2="○",TEXT(C$1,"m/dd"),"")&" "&IF(D2="○",TEXT(D$1,"m/dd"),"")&" "&IF(E2="○",TEXT(E$1,"m/dd"),"")&" "&IF(F2="○",TEXT(F$1,"m/dd"),""))
Sheet2!B2: =IF(ISERROR(MATCH($A2,Sheet1!$A2:$A8,0)),"",INDEX(Sheet1!B2:B8,MATCH($A2,Sheet1!$A2:$A8,0)))
Sheet2!C2: =IF(ISERROR(MATCH($A2,Sheet1!$A2:$A8,0)),"",INDEX(Sheet1!H2:H8,MATCH($A2,Sheet1!$A2:$A8,0)))

お礼

ご回答ありがとうございました！
色々な方法があり、勉強になります。

回答No.4

imogasi

#3です。
ＶＢＡでやった場合の「感じ」について、２０行弱だが、考えの筋道は、関数と違って、エクセルのベテランの思い付き的な方法ではない。
ーー
標準モジュールに
Sub test01()
k = 2
m = 3
Dim sh1, sh2
Set sh1 = Worksheets("Sheet2")
Set sh2 = Worksheets("Sheet3")
d = sh1.Range("A65536").End(xlUp).Row
For i = 2 To d
For j = 3 To 6
sh2.Cells(k, 1) = sh1.Cells(i, "A")
If sh1.Cells(i, j) = "○" Then
sh2.Cells(k, m) = sh1.Cells(1, j)
m = m + 1
End If
Next j
k = k + 1
m = 3
Next i
End Sub
ーー
外にも、色々なやりかたが考えられるが。
＃３の私の例で
結果
山田 Ｘ Ｚ
鈴木 Ｘ Ｚ Ｖ
小島 Ｙ Ｚ
田中 Ｘ Ｖ
木村 Ｘ Ｙ Ｚ Ｖ
＝＝＝
＞１と入力するとaという名前
の部分はＶＬＯＯＫＵＰ関数でも使う、常識的な課題ではないかな。
この関数さえも知らないようなら、エクセルの関数の簡単な本を読んで勉強するのが急がれる。

お礼

＃3のご回答と合わせて、ご丁寧な解説をありがとうございます。

1と入力するとａ…については、おっしやるとおりVLOOKUPを使用し、表示できたものの
その後の質問内容で行き詰まり、合わせての質問となりました。

正直申しまして、私がまだ知り得ない関数であっさりと解決してしまう
問題なのかと思っており、あのような書き方となりました。
勉強不足を痛感しております…

この度はありがとうございました。

回答No.3

imogasi

＞初歩的な質問で申し訳ありませんが
質問内容は初歩的ではなく、エクセル関数に対し、「無いものねだりをしている」風の課題なのです。
難しい点は、
（１）丸がどの列にあるか決っていない
（２）ある行について、丸が１つだけでなく、複数の列に存在することも在る。
この（２）に関して、１番目より右の○の存在を見つける関数が良いものが無い。
ーー
これらはＶＢＡ（プログラム）なら繰返しの探索が出来る。だからＶＢＡ向きの問題なのだ。
回答をコピーして、うまく行きましたなんていっているが、　　ベテランだからこそ、定石に当たることも知っているのであって、エクセル関数でやる場合、どういうタイプの課題がやりにくいかを勉強するほうが大切だ。
結果的には初心者向けの課題ではない。
ーー
毎週数件抜き出し問題の質問が出る。普通は縦に条件に該当するデータが並んでいる場合が多いが、本件は横方向に並ぶ点で特異である。
例データ　Ａ１：Ｆ　　－は空白セル
- - Ｘ Ｙ Ｚ Ｖ
山田 - ○ - ○
鈴木 - ○ - ○ ○
小島 - - ○ ○
田中 - ○ - - ○
木村 - ○ ○ ○ ○
ーー
Ｈ列は空白列にしておく
Ｈ２セルの　=G2+MATCH("○",OFFSET($C2:$F2,0,G2,1,12-COLUMN()),0)
右方向に式を複写する。
Ｈ２：ｋ２の式を下方向に式を複写する
結果　Ｈ２：Ｋ６
1 3 #N/A #N/A
1 3 4 #N/A
2 3 #N/A #N/A
1 4 #N/A #N/A
1 2 3 4
丸の在る列が列で左詰で出ている。
#N/Aは表示しないように出来るがここでは略。
ーー
Ｌ２セルに
=INDEX($C$1:$F$1,1,H2)
Ｏ２まで右方向に式複写。
Ｌ２：Ｏ２の式を下方向に式複写
結果　ｌ２：Ｏ６
Ｘ Ｚ
Ｘ Ｚ Ｖ
Ｙ Ｚ
Ｘ Ｖ
Ｘ Ｙ Ｚ Ｖ
見出しの一覧が列的に左詰で出る。
ーー
作業列的な列を使う点で、満足ではないが、こういう性格の問題は、作業列でも使わないと式がいっそう複雑になる場合が多い。

回答No.1

keithin

A2セルに１や２や３を記入する

B2セルには
=IF(A2="","",INDEX(Sheet1!$B$2:$B$8,A2))

C2セルには
=IF(COLUMN(A2)>COUNTIF(OFFSET(Sheet1!$C$1:$F$1,$A2,0),"○"),"",INDEX(Sheet1!1:1,SMALL(IF(OFFSET(Sheet1!$C$1:$F$1,$A2,0)="○",COLUMN($C$1:$F$1)),COLUMN(A2))))
と記入してコントロールキーとシフトキーを押しながらEnterで入力，
日付の書式を付けておいてから右にコピー。

お礼

早速のご返答、ありがとうございました。
試してみたところ希望通りに動作いたしました。

とっても助かりました(^^)
ありがとうございます！