Excelで存在する値を抽出したい。

Question

以下のような表で、「存在する値」列に4月から12月までに1度でも存在した値を入力したいです。

|4月|5月|6月|7月|8月|9月|10月|11月|12月|1月|2月|3月|存在する値|
|:--|:--:|--:|--:|--:|--:|--:|--:|--:|--:|--:|--:|
|E027|E027|E027|E027|E030|E030|E030|E030|E030|E030|E030|E030|E027,E030|
||||||NULL|E041||||||NULL,E041|
|E026|E026||||E026|E026|E026|E026|E026|E026|E026|E026|
|E018|E036|E036|E036|E036|E036|E036|E036|E036|E036|E036|E036||
|E006|E006|E006|E006|E006|E006|E043|E043|E043|E043|E043|E043||
|E006|E006|E006|E006|E006|E006|E006|E006|E044|E044|E044|E044||
|E006|E006|E006|E006|E006|E006||||||||
|E006|E006|E006|E006|E006|E006|E006|E006|E006|E006|E006|E006||

これを関数やオートフィルなどを使って一括で、完成させたい場合、どのような処理になりますか？

※「存在する値」列は複数になっても構いません。
※Excel以外のソフトやプログラムを利用しても構いません。

どなたかご教授いただけると幸いです。
質問内容に不足があれば、ご指摘ください。

Answer 1

Excelのバージョンにもよりますが、

=TEXTJOIN(",",TRUE, UNIQUE(A2:L2,TRUE))

---

それが駄目なら、マクロでやるか。（Macだったらごめんなさい。）

Sub sample()
    Dim r, c, d
    For r = 2 To UsedRange.Rows.Count
        Set d = CreateObject("Scripting.Dictionary")
        For c = 1 To 12
            If Not IsEmpty(Cells(r, c)) Then d(Cells(r, c).Value) = 0
        Next c
        Cells(r, 13).Value = Join(d.Keys, ",")
    Next r
End Sub

Answer 2

pythonを使うなら以下です。

import pandas as pd
def makeresult(x):
    result = set(x)
    result = result - {""}
    return ','.join(result)

df = pd.read_excel('input.xlsx', na_values = None, keep_default_na = False)
df['存在する値'] = df[df.columns[:-1]].apply(makeresult, axis=1)
df.to_excel('output.xlsx')