該当列○の時その文言と類義語をセットし複数列分結合

質問

こんにちは、お世話になります。

エクセルで、「ある列に該当する性質のときはその文字とその類義語を取得し、該当する性質は複数ある想定なので、それらの取得した文字を数珠つなぎにする」ということをしたいと思っています。

長々とした条件なので資料を作りました。添付資料をご確認ください。

作業用エクセルのレイアウトの説明
--------------------
Ｂ列に商品の番号があります。
Ｅ～Ｘ列は、商品の性質で、該当する場合は各商品その列に○がついています。
そしてたとえばＥ列の「長袖」に該当する場合は、本当は別シートにありますが添付資料上は右の方にある表にて「長袖」を参照し、その類義語「ロングスリーブ」「ロンＴ］も合わせてＡＢ列に「長袖/ロングスリーブ/ロンＴ」がセットされるのが
作業の目的となります。

関数でも以下の要領でやれます。
--------------------
１．ＩＦ文で各列に○がついているか判断
２．○がついていた場合、その列タイトルを引数にして別シートの表にＶＬＯＯＫＵＰをかけて、代表word、類義語１、類義語２、・・・、類義語ｎの全てを取得する。
３．「＆」でつなぎながら次の列でも同じことをする。

しかし、添付資料上は割愛してありますが、この商品の性質の列は実際はもっと多く、
また、類義語も代表wordだけのものもあればかなり並んでいるものもありランダムです。

この状況下では、マクロを組んだ方が求める結果をスマートに得られ、また、
列が増えた時にもスムーズに対応できると考えました。

この要件を満たすマクロを作成できる方がいらっしゃいましたら
お力をお貸し頂けないでしょうか。

よろしくお願い申し上げます。

回答No.1

Prome_Lin · ベストアンサー

添付してある画像がよく見えなかったので、私の方で、勝手にエクセルのファイルを作りました。

私の作った、エクセルの表で、プログラムを作りました。

まず、Ｂ列が「Name（商品名）」とし、
Ｅ～Ｘ列が「代表Word」で、「○」を入力するところ、
Ｚ列が、結果を表示する列、
ＡＡ列が、「代表Word」そのもの
ＡＢ～ＡＦ列が「類義語」です。

この条件下で、以下のプログラムを実行すると
Ｚ列に結果が出力されますが、
今回は、代表Wordごとに「/」ではなく「◆」を前に付けて
分かりやすくしております。

01：Option Explicit
02：Sub Main()
03：　　Dim n As String
04：　　Dim s As String
05：　　Dim e As Integer
06：　　Dim i As Integer
07：　　Dim j As Integer
08：　　Dim k As Integer
09：　　Dim l As Integer
10：　　e = Range("B1").End(xlDown).Row
11：　　For i = 2 To e
12：　　　　For j = 5 To 26
13：　　　　　If InStr(Cells(i, j).Value, "○") > 0 Then
14：　　　　　　　　n = Cells(1, j).Value
15：　　　　　　　　For k = 2 To 21
16：　　　　　　　　　　If Trim(Cells(k, 27).Value) = n Then
17：　　　　　　　　　　　　If Len(s) > 1 Then
18：　　　　　　　　　　　　　　n = "◆" & n
19：　　　　　　　　　　　　End If
20：　　　　　　　　　　　　For l = 28 To 32
21：　　　　　　　　　　　　　　If Trim(Cells(k, l)) <> "" Then
22：　　　　　　　　　　　　　　　　n = n & "/" & Trim(Cells(k, l).Value)
23：　　　　　　　　　　　　　　End If
24：　　　　　　　　　　　　Next l
25：　　　　　　　　　　End If
26：　　　　　　　　Next k
27：　　　　　　End If
28：　　　　　　s = s & n
29：　　　　　　n = ""
30：　　　　Next j
31：　　　　Cells(i, 26).Value = s
32：　　　　s = ""
33：　　Next i
34：End Sub

11行目は、「商品名」を１つずつ、読み込んでいます。

12～13行目は、「○」があるか、調べ、14行目で、
「代表Word」を取得しています。

15～16行目で、「代表Word」を探しています。

17～19行目のIf文は、２回目以降の代表Wordの頭に「◆」を
付けていますが、ここを「/」にすればそちらのご要望どおりになります。

20～24行目で、類義語を取得し、「/」でくっつけています。

今回は、「Vlookup」を使わず、
すべて「For～Next」で処理しておりますので、
読み込む最終列が変わるたびに、
数字を変更しなければならなくなってしまっている点で、
極めて稚拙なプログラムですが、
（その行の最終列を読み取るようにすべきでした）
一応、結果は出ていると思います。

このプログラムを、参考にして頂ければ、幸いです。

お礼

おはようございます。

このたびはご回答誠にありがとうございました。

プログラムのみならず、各行の意味までご丁寧に教えて頂き、
ご親切さに感動しました。

確かに、表をLOOPでなめまわしていき、その表内の各セルと、
探したい文字がセットされているセルを比較すれば
まさにVLOOKUPと同じ、”合致するセルを探す”ことが実現できますね！
あとは連結で文字を取得していく、と。

完全に理解できました。
結果もバッチリでした。

ありがとうございました。

補足

おはようございます。

すみません、以前利用していた時とOKWAVEのレイアウトが変わっており、
前から見難かった画像がさらに見難くなっていました。
しかし回答がつくまで補足もできない仕様になっていて、申し訳なく思うのみでした。

ご自身で表まで用意していただき、誠にありがとうございました。