数値を指定した文字に簡単に変換する方法？

質問

エクセルの表にて
商品のコード番号のみが入力されています。
そのコード番号の隣の列に商品名を表示したいのですが
どうすればいいでしょうか？
ランダムに沢山あります。
どうすればいいでしょうか？

例）
コード番号　　商品
　１　　　　　みかん
　２　　　　　バナナ
　３　　　　　りんご
　１　　　　　みかん
　３　　　　　りんご
　・　　　　　　・
　・　　　　　　・
　・　　　　　　・
　・　　　　　　・

　よろしくお願いします。

回答No.1

notnot · ベストアンサー

他の場所に、コード番号と商品名の一覧があるなら、VLOOKUP関数が使えます。
https://www.google.co.jp/search?q=VLOOKUP&ie=utf-8&oe=utf-8&hl=ja

回答No.2

山田 太郎（@f_a_007）

標準モジュールに次の二つの関数を登録すると実現できます。

Public Function XferGoodsID(ByVal ID As Variant) As String
　　strGoodsList = "001:みかん,002:リンゴ,003:バナナ,,,,,," & _
"010:マンゴー"

　　XferGoodsID = CutStr(CutStr(strGoodsList, ",", ID), ":", 2)
End Function

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　　ByVal Separator As String, _
　　　　　　　　　　　　ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs(N <= UBound(strDatas)))
End Function

本来は、Auto_Open()　などでグッズの配列を用意すべき。が、これでも動作はします。