エクセルにて条件検索

下記出欠表で出欠を管理しています。
この中から出席者の名前を、別シートの一つのセルにまとめて表示したいのですが、どうすればよろしいでしょうか？

関数で解決できると助かります。

【出欠表】
A　　B　　C　　D　･　･　･
1　A氏　出
2　B氏　出
3　C氏　欠
4　D氏　出
･
･
･

【別シート】
A　　　　　B　　　　　　　　　　　
1　出席者　A氏、B氏、D氏
2
3
4
･
･
･

行と列の表現が下手で申し訳ありませんが、ご回答いただければ幸いです。

ttyp03

2020/01/06 02:58

行数は固定なのか可変なのか、Excelのバージョンなど情報を追記してください。

uimaro

2020/01/06 03:48

コメントありがとうございます。行数は可変で、使用バージョンはExcel2010です。

ttyp03

2020/01/06 04:10

マクロの使用可否も追加でお願いします。

uimaro

2020/01/06 04:43

マクロは使用せず、組み込み関数での解決を希望しております。

行動規範の内容に同意します

回答1件

ベストアンサー

回答になっていませんが、Excel2010では無理と思います。
Excel2016以降であればTEXTJOIN関数が使えますが、2010にはないので無理ですね。
解決策としてはTEXTJOIN相当の関数をマクロで実装するのが手っ取り早いと思いますが、マクロの使用を望んでいない以上できないと思います。

マクロを使ってみたいということなので、作ってみました。
下記のコードをVBEの標準モジュールに貼り付けてください。

VBA
1Function NAMEJOIN(src As Range) As String
2    Dim r As Range
3    Const s = "、"
4    NAMEJOIN = ""
5    For Each r In src
6        If r.Offset(0, 1).Value = "出" Then
7            NAMEJOIN = NAMEJOIN & r.Value & s
8        End If
9    Next
10    If Right(NAMEJOIN, 1) = s Then
11        NAMEJOIN = Left(NAMEJOIN, Len(NAMEJOIN) - 1)
12    End If
13End Function