最下層項目の前に集団項目名を付与するには？

質問

ＶＢＡ初心者です。
以下のようにシートに文字列がある場合についてです。

　　　　　Ａ列　　Ｂ列　　　Ｃ列　　　　　　　
１行目　　１　　　Ａ　　　　　Ａ　　　　　　　　　*集団項目*
２行目　　２　　　Ａ－１　　 Ａ_Ａ－１ 　　　*集団項目*
３行目　　３　　　Ｂ　　　　 Ａ_Ａ－１_Ｂ 　　*最下層項目*
４行目　　１　　　Ａ１　　　　Ａ１ 　　　　　　　　*集団項目*
５行目　　３　　　Ｂ　　　　　Ａ１_Ｂ 　　　　　　*最下層項目*
６行目　　３　　　Ｃ　　　　　Ａ１_Ｃ 　　　 　　　　　*集団項目*
７行目　　５　　　Ｄ　　　　　Ａ１_Ｃ_Ｄ 　　　　　*最下層項目*
８行目　　３　　　Ｅ　　　　　Ａ１_Ｅ 　　　　　　　*最下層項目*

・やりたいこと
　最下層項目の前に”集団項目名_”を付与したいです。Ｃ列はその結果を表しています。
　ＶＢＡで実現したいです。

・シートの初期状態
　Ａ列に階層を表す数字、Ｂ列に項目名が記載されています。Ｃ列は便宜上記載したものです。

・階層の考え方
　数値が大きくなるほど、その前の小さい数値に従属します。
　例えば、３行目は２行目と１行目に従属し、２行目は１行目に従属します。

・処理条件
　・Ａ列が空白になるまで繰り返す。
　・Ａ列が１の行から次に１が現れる１行前までが１つのグループという考え方です。
　　（１～３行目までが１つのグループ、４～８行目までがもう１つのグループ）
　　Ｃ列の結果には、必ずＡ列が１の項目名で始めます。

・やっかいそうだと思われること
　６、８行目は同じ階層ですが、６行目は７行目があるため集団項目、８行目は最下層項目です。

・その他
　例えばＡ列が１の場合はＣ列に、２の場合はＤ列に・・・というように列をずらして
　後から結合してもよいです。
　その場合、アンダーバーは不要です（後から付与できるため）
　但し、１グループ内でＣ列には同じ文字列が設定されていることが前提となります。

　（例）
　Ａ列　Ｂ列　　Ｃ列　Ｄ列　　　Ｅ列
　　１　　Ａ　　　　Ａ　
　　２　　Ａ－１　 Ａ　　Ａ－１
　　３　　Ｂ　　　　Ａ　　Ａ－１　　Ｂ

以上、よろしくお願い致します。

回答No.1

jcctaira · ベストアンサー

kennybrainさん
こんにちは。

以下の処理でできるかと思います。
お試しください。

Sub 階層文字列作成()
　Dim 階層番号　　As Long
　Dim 階層内容()　As String
　Dim 階層文字列　As String
　Dim 処理行　　　As Long
　Dim I　　　　　 As Long
　処理行 = 1

　Do While Cells(処理行, "A") <> ""
　　階層番号 = Cells(処理行, "A")
　　ReDim Preserve 階層内容(階層番号)
　　階層内容(階層番号) = Cells(処理行, "B")
　　階層文字列 = 階層内容(1)
　　For I = 2 To 階層番号
　　　If 階層内容(I) <> "" Then 階層文字列 = 階層文字列 & "_" & 階層内容(I)
　　Next I
　　Cells(処理行, "C") = 階層文字列
　　処理行 = 処理行 + 1
　Loop
End Sub

お礼

ありがとうございます！
大変助かりました。
動作確認はできましたので、これから解析して自分のものにしていきたいと思います。
感謝！