表を参照して値を入れていくマクロ

こんにちは。丸投げの質問はだめでしょうか。
お願いできたら大変助かります。
[送り先]シートのF、L、Rの列に[料金表]の記号を参照して
入れていくというものです。

送信しようとすると、行と列の表示がぐちゃぐちゃになるので
表現できないかもしれないので心配です。。

[料金表]
N O P Q
37 記号 上 中 並
38　　 A 100 80 60
39 B 90 70 50
40 C 80 60 40
※見出しは37行目
[送り先]
E F L R
5 記号 上 中 並　　　
6 B 90 70 50
7 A 100 80 60
8 C 80 60 40
※見出しは5行目

※ちなみにF L R列の上・中・並のカテゴリーはF4、L4、R4をセル番地としてセルの結合しています。

[料金表]シートには記号、上・中・並などのカテゴリーがあります。
これらは[送り先]シートの記号・カテゴリーと常に同じです。


[送り先]シートにはあらかじめ記号と上・中・並などのカテゴリーは入って
います。値が空白になっているので、記号に対応する値を、それぞれのカテゴリー
別に入れていきたいのです。

記号は例のようにABCのように昇順であるとは限りません。

どうぞよろしくお願いします。

No.1 ベストアンサー 回答者： kuma3f 回答日時： 2008/02/17 11:36

思われていることと違ったらすみませんが、送り先シートの値を入れるセルに

VLOOKUP関数をつかわれたらいかがでしょうか。
だだし、料金表シートの記号の列がＡ，Ｂ、Ｃ…と昇順になっていることが
前提です。値を入れる送り先シートは昇順でなくてよいです。

送り先シートのＦ６に
=VLOOKUP($E$6:$E$8,料金表!$N$38:$Q$40,2,TRUE)
を入力、Ｆ列の値を入れるところは、Ｆ６の関数をコピーして貼り付ける

送り先シートのＬ６に
=VLOOKUP($E$6:$E$8,料金表!$N$38:$Q$40,3,TRUE)
を入力、Ｌ列の値を入れるところは、Ｌ６の関数をコピーして貼り付ける

送り先シートのＲ６に
=VLOOKUP($E$6:$E$8,料金表!$N$38:$Q$40,4,TRUE)
を入力、Ｒ列の値を入れるところは、Ｒ６の関数をコピーして貼り付ける

関数の $E$6:$E$8 ところは、送り先シートの「記号」の列の範囲を
絶対参照で記述してください。

関数の 料金表!$N$38:$Q$40 ところは、料金表シートの記号を含むデータの
範囲を絶対参照で記述してください。

この回答へのお礼

ありがとうございました。

お礼日時：2008/03/02 09:41