Excelで

質問

Excel2000を使用しています。
関数だけで出来るのかも分かりませんが、
以下のようにＤ列に表示させる方法を教えてください。
CONCATENATEと何か別の関数を組み合わせれば出来るものでしょうか？

　　Ａ　　　　　　Ｂ　　　　　Ｃ　　　　　Ｄ
１きゅうり　　　 静岡　　　　100　　　　 静岡
２　　　　　 　　 愛媛　 　　　 5　　　　 　　
３トマト　　　　 栃木　 　　　 20　　　　 栃木
４みかん　 　　神奈川　　　80　　　　 埼玉／神奈川／岩手
５　　　　　　 　 埼玉　　　　150　　　　 　　
６　　　　　　　 岩手　　　　 30　　　　 　　
７もも　　　　　 長野　　　　 50　　　　 長野
８レタス　　　　 群馬　　　　　3　　　　 群馬

１．Ａ列は、あいうえお順でソートされています。
２．Ａ２は空白ですが「みかん」のデータです。
３．Ａ５とＡ６は空白で「トマト」のデータです。
４．Ａ列で同一データのＢ列データをＤ列に「／」で区切り１つにする：例 Ｄ４
５．Ａ列で同一データのＢ列データでもＣ列の値が10以下は含めない：例 Ｄ１
６．Ｃ列の値が10以下でもＡ列データが１つのものはＤ列に表示：例 Ｄ８

よろしくお願いします。

回答No.2

imogasi · ベストアンサー

#1のものです。ＶＢＡでやって見ました。
上記データでやって見ました。６．の条件も下記で大丈夫と思いますが、もっと沢山のデータでテストしてください。関数ＣｏｎｋａｔｉｎａｔｅはＶＢでは＆で出来ます。下記ではｍに始まりの行の数を後のために記憶させています。
－－－－
ワークシート画面でＡＬＴキーを押しながらＦ１１キーを押す。ＶＢＥ画面になります。更にＡＬＴキーを押しながら、Ｉ（挿入）更にＭ（標準モジュール）とキーインすると、右側に標準モジュール画面が出るので、そこへ下記を
コピー・貼りつける。そしてメニューの実行をクリックする。
Sub test01()
d = Range("a1").CurrentRegion.Rows.Count
s = Trim(Cells(1, "B"))
m = 1
For i = 2 To d
If Cells(i, "A") = "" Then
If Cells(i, "C") <= 10 Then
Else
s = s & "／" & Trim(Cells(i, "B"))
End If
Else
Cells(m, "D") = s
s = Trim(Cells(i, "B"))
m = i
End If
Next i
Cells(m, "D") = s
End Sub
関数式だと５，６の条件を実現することと、上例で６行のＤ列で無く、４行のＤ列にセットするのが、難しい点に思えます。

お礼

ありがとうございます。
うまく出来ました！助かりました！！

回答No.1

imogasi

＞（１）．Ａ２は空白ですが「みかん」のデータです。
どう言う風に判断して「みかん」のデータとわかりますのですか。
＞（２）３．Ａ５とＡ６は空白で「トマト」のデータです。
これについても同じ疑問です。ミスタイプ？
ソートしてここの位置に来ると言うことは、ソートキーは
Ａ列以外に別に存在するのではないですか。だとすればその内容は。
○上記が理解出来てないですが、５，６の条件があるので関数式では長くなりすぎるので、ＶＢＡで組んだ方が判りやすくなると予想します。

補足

申し訳ありません。ミスタイプです。

Ａ２はきゅうりのデータです。
Ａ５、Ａ６はみかんのデータです。

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