こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

上記の4のようなことが可能なのでしょうか?

投稿日時 - 2009-01-20 19:48:31

QNo.4646471

困ってます

質問者が選んだベストアンサー

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

   A  B  C  D  E
1  1  東京   1,2,3
2  2  大阪
3  3 名古屋

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

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

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

投稿日時 - 2009-01-20 20:34:26

お礼

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

投稿日時 - 2009-01-20 21:03:29

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問