セルのデータを分割し、VLOOKUPでつき合わせ処理を実施し、再度結合する

質問

１つのセルに設定された１，２，３を区切り文字で分割し、１，２，３に対応した内容をVLOOKUP関数でつき合わせし、再度セルに戻したいです。

１．表の項目を選んだ１，２，３と入力されたセルがあります
　　　例）１：東京　２：大阪　３：名古屋
２．VLOOKUP関数を使用するためにマクロで区切り文字を分割
　　します（実現済み）
３．VLOOKUP関数で、１，２，３にそれぞれ対応した内容を
　　つき合わせます。（実現済み）
４．もとのセルに１，２，３と結合して設定すると同時に、
　　１，２，３に対応した内容を・東京（改行）・大阪（改行）・名古屋を隣のセルに設定する

上記の４のようなことが可能なのでしょうか？

回答No.1

n-jun · ベストアンサー

表の構成がわかりませんが。

　　 Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ
1　　1　　東京　　　1,2,3
2　　2　　大阪
3　　3　名古屋

の様な表があったとしてセルＤ１の値によりセルＥ１に結果を出すなら、

Sub try()
Dim i As Integer
Dim st As String
Dim v

v = Split(Range("D1").Value, ",")

For i = 0 To UBound(v)
st = st & Application.VLookup(Val(v(i)), Range("A1:B3"), 2, 0) & vbLf
Next

Range("E1").Value = Left(st, Len(st) - 1)
End Sub

この様な意味合いの事ですか？

お礼

n-junさん
　早速ご回答いただき感謝いたします。
　やりたい事以上のご回答をいただきました。
　１，２，３の分割後、VLOOKUP関数を使うために行と列を入れ替えたりとか非効率的なやりかたをしておりました。
　今やりたいことと、今やっていたことの改善を同時にご回答いただきました。本当にありがとうございました。