入力条件をリストで、同じ番号をVLOOKUPで違う名前で表示できますか？

質問

すみません、教えてください。

WindowsXPでExcel2003を使っています。

リストで取引先コードを入力すると、隣に取引先名が表示されるように
VLOOKUPを使っていたのですが、取引先名の 違う部署で同じコードを使っている所があります。
情報処理後、この表を見ながらCP入力をするので
（会社のシステム上）別のコードを付けることができません。

今は、
1行目タイトル行
(R2C2)コード(R2C3)取引先名・・・(R2C10)コード一覧(R2C11)取引先一覧
2列目に入力規則で10列の［R2C10］以下を参照するようにして
3列目は『=IF(RC[-1]="","",VLOOKUP(RC[-1],R[-1]C[7]:R[93]C[8],2,FALSE))』と入力しています。

通常はこれでいけてたのですが、『(株)●● 営業部』『(株)●● 総合管理部』等
同じコードで違う部署名を表示したいのですが、同じ番号を付けると上の行ばかり表示されてしまいます。
Excelの表上では部署毎の数字を出したいのですが、後から並べ替えもしたいので
その行だけ変えることはできないのです。

よい方法がありましたら、どうか教えてください。

回答No.2

BLUEPIXY · ベストアンサー

#1>[100-1][100-2]．．．とした場合、並べ替えで最後に来てしまうので…。
それは、重複するコードだけに補番を振ったからですね。
全部のコードに同じように振る必要があります。
手動で振るのは面倒なので、
例えば、Ａ列にＡ１のセルからコードがあるとして
Ｂ列に
B1
=1
B2
=IF(A1=A2,B1+1,1)
以下下にコピー
のようにすると、同じコードに一連番号を振ることができます。
そこで
Ｃ列に
C1
=A1&TEXT(B1,"-00")
以下、下にコピー
のようにしてやれば、それぞれ補番が付きます。
（０の数は、重複が予想される桁必要、重複が１０個あれば２桁）
一旦作成できれば、範囲を選択してコピー～形式を選択して貼り付け～値で貼り付けして作業列を削除します。

お礼

またも ありがとうございます！
言われてみれば、ちょっと考えればわかりそうなことをしていました…。
しかも、簡単に番号を振る方法まで教えていただいて、本当に助かりました。ありがとうございます。

おかげさまで、やりたかったようにできるようになりなした。

回答No.1

BLUEPIXY

同じコードで、ある時はＡある時はＢのように人間の思う都合の良い方を表示することはできません。
どうしても、コードを振り直すか補番を追加する必要があります。
システム上コードを振り直すことができないということなので、
エクセル上で、元のコード＋補番のコードでVLOOKUPできるようにすればいいんじゃないかと思います。

場合によっては、ＶＢＡで、コード入力時に、同一コードデータが複数在る場合は、ユーザーに選択させるということもできるかもしれません。

お礼

早速、ありがとうございます。

やっぱりこの条件では無理なんですね…。

補足

ＶＢＡはわかりませんので…
教えていただきました保番を付けるやり方でやってみたのですが
セルを挿入した場合リストで表示させようとすると『単一のセルまたは行～』となり、
[100-1][100-2]．．．とした場合、並べ替えで最後に来てしまうので…。

もっといい条件の関数がないか調べてもみたのですが、
ヘルプでみても使い方がよくわからなかったりで結局現状のままです。

保番の付け方でどうにかできるか、もう少しやってみようと思います。