チェックされたチェックボックスの内容を1つのセルに改行して結果を返す方法

質問

こんにちは。どなたか教えてください。よろしくお願いします。

現在、A地区　B地区　C地区　D地区　E地区　F地区　G地区　H地区
と8個のチェックボックスがあります。

J列にTRUEとFALSEを返す、チェックボックスのリンク先を設定しています。
K列に　=IF(J3=TRUE,"A地区","")　とチェックボックスの内容を表示
L列に予備でチェックボックスON/OFFフラグ用に、=IF(J3=TRUE,1,0)　としています。

チェックされている内容を、1つのセルに改行させて表示させたいのです。

例えば、A地区　C地区　E地区　G地区にチェックがされていれば、
M2のセルに
A地区　
C地区　
E地区　
G地区 という感じです。

M2のセルに
=CONCATENATE(K2,CHAR(10),K3,CHAR(10),K4,CHAR(10),K5,CHAR(10),K6,CHAR(10),K7,CHAR(10),K8,CHAR(10),K9)
とすると、チェックされていない項目にまで改行が入り、無駄なスペースができてしまい

=IF(L2=1,CONCATENATE(K2,CHAR(10),""),IF(L3=1,CONCATENATE(K3,CHAR(10),""),IF(L4=1CONCATENATE(K4,CHAR(10),""・・・
とすると、エラーになってしまいました。

VBAでも関数でも結構です。
1つのセルに改行させてチェックボックスの結果を表示させる方法をご伝授ください。
よろしくお願いします。

回答No.1

mu2011 · ベストアンサー

一例です。
=SUBSTITUTE(TRIM(SUBSTITUTE(K2&CHAR(10)&K3&CHAR(10)&K4&CHAR(10)&K5&CHAR(10)&K6&CHAR(10)&K7&CHAR(10)&K8&CHAR(10)&K9,CHAR(10)," "))," ",CHAR(10))

お礼

ありがとうございます。
感動です。うまくできました。
大大大感謝です。ありがとうございました！！