Excelで複数セルを結合して求人票をつくるには？

質問

Excel独学の初心者です。
仕事で複数データを結合して1つのセルにまとめて求人票をつくらなくてはならないのですが、
長い関数で無理やり作ってみたら空白セルの項目も表示されてしまい困っています。

以下のようなデータがあった場合、Gの列にA～Fをきれいに結合して表示することは可能でしょうか？
VBAやマクロを使えば以下の条件もクリアできますか？
■1行目は固定
■1行目の項目のあとに全角スペースを入れる
■項目ごとに改行
■データのないセル（スペースなど入っていないセル）は、1行目の項目も表示しない

　　　　　A　　　　　　　B　　　　　　　　C　　　　　　　　　D　　　　　　　　E　　　　　F　
1　＜勤務地＞＜勤務時間＞＜勤務内容＞＜勤務内容詳細＞＜休日＞＜給与＞
2　　東京都　　　9：00～17：00　　事務　　　　　データ入力　　　　土・日・祝　20万
3　　　　　　　　　 8：30～17：00　　営業　　　　　不動産の営業　　水　　　

↓希望の結合後のセル（2行目）
＜勤務地＞　東京都

＜勤務時間＞　9：00～17：00

＜勤務内容＞　事務

＜勤務内容詳細＞　データ入力

＜休日＞　土・日・祝

＜給与＞　20万

↓希望の結合後のセル（2行目）
＜勤務時間＞　 8：30～17：00

＜勤務内容＞　営業

＜勤務内容詳細＞　不動産の営業

＜休日＞　水

空白のセルも含めて結合するのは、無理やり以下の関数を入れてできましたが・・・長い・・・。
=$A$1&" "&A3&B3&CHAR(10)&$C$1&" "&C3&D3&CHAR(10)&$E$1&" "&E3&F3&CHAR(10)&$G$1&" "&G3&H3&CHAR(10)&$I$1&" "&I3&J3&CHAR(10)&$K$1&" "&K3&L3&CHAR(10)&$M$1&" "&M3&N3&CHAR(10)&$O$1&" "&O3&P3&CHAR(10)&$Q$1&" "&Q3&R3&CHAR(10)&$S$1&" "&S3

何卒よろしくお願い致します。

回答No.1

keithin · ベストアンサー

とりあえず「きれい」にやりたいなら

Ｈ２に
=IF(A2="","",A$1&"　"&A2&CHAR(10))
と記入、右にＭ列までコピー
Ｎ２に
=CONCATENATE(H2,I2,J2,K2,L2,M2)
と記入
Ｇ２に
=IF(N2="","",LEFT(N2,LEN(N2)-1))
と記入して完成。

Ｈ～Ｎ列は隠すなり、どーしても目障りならずっと邪魔にならないＺ列とかシート２にでも置いておきます。

＃参考
そこまでこだわらないならＮ２をＧ２に書いて手抜きしても構いません

文字列の結合はどのみち「一つずつ」やるしか方法はありません。
Ｇ２に丁寧に
=IF(A2="","",A$1&"　"&A2)
&IF(B2="","",CHAR(10)&B$1&"　"&B2)
&IF(C2="","",CHAR(10)&C$1&"　"&C2)
&IF(D2="","",CHAR(10)&D$1&"　"&D2)
&IF(E2="","",CHAR(10)&E$1&"　"&E2)
&IF(F2="","",CHAR(10)&F$1&"　"&F2)
以下コピー
とした方が気持ち良ければ、これでも勿論ＯＫです。

お礼

早速のご回答ありがとうございます！！
できましたーー！！！
本当に助かります♪

明日早速仕事で使わせて頂きます！