他のシートのセルの値を引用したい

ＥＸＣＥＬ2007でマクロ作成中の初心者です。今困っています。お助けください。
シートのＡ列に名前が書いてあります。　その名前の横Ｂ列に番号を入れたいのです。
　　　　　Ａ　　　　　　　Ｂ　　
　　1　佐藤
　　2　伊東
　　3　加藤
　　4　以下つづく

横Ｂ列の番号は他のシートにあります。現状では以下の番号になります。
　　　　Ａ　　　　　　　　　　Ｂ　　
　　1　佐藤　　　　　　　　1
　　2　伊東　　　　　　　　3
　　3　加藤　　　　　　　　5
　　4　以下つづく


他のシートに以下の表があります。これは可変の表で、名前は次の列は空白です。
名前のあるセルのみ上の番号を表示したいです。
、
　　　　　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　　　Ｆ　　　Ｇ　　→以下つづく
　　　1　
　　　2　番号　　　　1　　　　　2　　　　3　　　　　4　　　　5　　　　6　　　7　　　→以下つづく
　　　3　名前　　　佐藤　　　　　　　　伊東　　　　　　　加藤　　　　　　田中　　→以下つづく

わかりにくいかもしれませんがよろしくお願いします。

No.3 ベストアンサー 回答者： syoyaku072 回答日時： 2011/11/12 23:37

シート「名前」のA列に名字、シート「数字」の１行目に数字、2行目に名字が入っているとすると

シート「名前」のB1セルに以下のセルを貼り付け、下方向に引っ張っていくとご希望の通りに出来ると思います。

=INDEX(数字!$1:$2,1,(MATCH(A1,数字!$2:$2,0)))

参照範囲が異なっていれば適時修正して下さい。

この回答へのお礼

今やってみました。完璧にできました。ありがとうございます。感謝感激です。

お礼日時：2011/11/13 07:25

No.2 回答者： imogasi 回答日時： 2011/11/12 19:22

質問が判りにくい。

課題が２個あるのか？
それを分けて、箇条書きにでもして、はっきりさせて質問文を書くこと。
（１）１つは名前の同行横列に番号を入れたい。
ＶＢＡでやるなら、Ｆｉｎｄメソッドを勉強せよ。
あるいはマクロの記録で編集ー検索の操作をして、コードがどうなるかを勉強せよ。
佐藤は他シートでは２度出ないとする。
VBAでせずとも、ＶＬＯＯＫＵＰ関数で出来るはず。＃Ｎ/Ａが出るのは式の組み立てが悪いから。実例をＷＥＢででも探せ。
Ｇｏｏｇｌｅででも「エクセル　ＶＬＯＯＫＵＰ関数」で照会せよ。第２引数では絶対番地指定にせよ。
（２）Ｓｈｅｅｔ２（他のシートのこと。仮にてなずけて名付けて質問に書け）で表の名前から番号を引いて、名前の上の行に番号を表示したいのか
これもＶＬＯＯＫＵＰ関数デモできるだろう。ＶＢＡならＦｉｎｄメソッドで出来る。
ーー
（２）のみ
例データ
Ｓｈｅｅｔ２　Ａ１：Ｂ５
佐藤1
木村9
加藤5
田中7
伊東3
Ｓｈｅｅｔ３
第３行目（－は空白セル）
ー佐藤ー伊東ー加藤ー田中ー木村
コード
Msgboxは納得後に削除する。
Sub test01()
r = Worksheets("Sheet3").Cells(3, 256).End(xlToLeft).Column
MsgBox r
For j = 2 To r Step 2
nm = Worksheets("Sheet3").Cells(3, j)
MsgBox nm
Worksheets("Sheet2").Select
Worksheets("Sheet2").Range("A:A").Find(what:=nm).Select
Worksheets("Sheet3").Cells(2, j) = Selection.Offset(0, 1)
Next j
End Sub
ーーー
実行後
Ｓｈｅｅｔ３
ー1ー3ー5ー7ー9
ー佐藤ー伊東ー加藤ー田中ー木村

この回答への補足

申し訳ございません。伏してお詫び申し上げます。無能をおゆるしください。
もう一度整理いたしました。よろしくお願いします。

あ）シート名「名前」のセルＡ1に佐藤の文字

い）シート名「数字」のセルＡ1からＥ1にそれぞれ　3、8,9,10,15の数字

う）シート名「数字」のセルＡ2からＥ2にそれぞれ　伊東,加藤,田中,佐藤,中川の文字

え）シート名「名前」のセルＢ1に　関数を入れ10という数字を表示させる。

補足日時：2011/11/12 21:09

No.1 回答者： hallo-2007 回答日時： 2011/11/12 16:30

マクロでなくて　Vlookup関数ではだめだったのでしょうか。

番号を表示したいシートのB列に
=Vlookup(A2,番号が入っているシート!A:B,2,FALSE)
と入れて下へコピーすればOKと思います。
もう一つのシートも同様で
=IF(B2="","",=Vlookup(B2,番号が入っているシート!$A:$B,2,FALSE))
と入れて右へコピーです。

どうしてもマクロが必要な状況なのか
とりあえず、マクロを勉強してみたい
など補足していただければ、それに合った回答が付くと思います。

この回答への補足

Ｂ列に番号を入れたいのです。Vlookup関数でもいいです。
　　　　　Ａ　　　　　　　Ｂ　　
　　1　佐藤　　　　　　=Vlookup(A2,番号が入っているシート!A:B,2,FALSE)
　　2　伊東
　　3　加藤
　　4　以下つづく

教えていただいた式をいれると、#N/A　となってしまいます。


番号が入っているのシートの表は可変の表です。名前は次の列は空白です。
名前のあるセルのみ上の番号を表示したいです。
、
　　　　　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　　　Ｆ　　　Ｇ　　→以下つづく
　　　1　
　　　2　番号　　　　1　　　　　2　　　　3　　　　　4　　　　5　　　　6　　　7　　　→以下つづく
　　　3　名前　　　佐藤　　　　　　　　伊東　　　　　　　加藤　　　　　　田中　　→以下つづく

補足日時：2011/11/12 17:53