エクセルでほかのシートを参照して対応する値を表示させたい

Question

エクセルで【シート1】の〇のところに、A1だったらaa、B1だったらbb、C1だったらccを表示させたいのですがやり方がわからず困っています。
よろしくお願いいたします。

【シート1】
001 A1 〇
002 B1 〇
003 A1 〇
004 B1 〇
005 C1 〇
006 A1 〇
007 A1 〇
008 B1 〇
009 A1 〇
010 C1 〇

【シート2】
A1 aa
B1 bb
C1 cc

Answer 1

vlookup関数は不要論がでてますね。最近ですと列番号（表の作りに）に左右されない、index+match関数の組み合わせ
が推奨されています。

C1セルに下記をコピーすると=INDEX(シート2!$A$1:$B$3,MATCH(B1,シート2!$A$1:$A$3,0),2)
今回のVlookupのような結果が得られます。

今回の事例では、Vlookupでいいのですが、その理由についてはネットで調べると
情報が得られると思います。

質問は関数だと思うので無視してください。

マクロで記述するとMatch関数を使ってこんな感じですかね（質問を勘違いして作成しただけなのですがUPしておきます）。

Sub test()
Dim data_maxrow As Double
Dim master_maxrow As Double
Dim mydata As Worksheet
Dim mymaster As Worksheet

Set mydata = Sheets("シート1")
Set mymaster = Sheets("シート2")

data_maxrow = mydata.Range("A1").End(xlDown).Row 'A列の最終列を取得
master_maxrow = mymaster.Range("A1").End(xlDown).Row 'A列の最終列を取得

For i = 1 To data_maxrow

 mycellno = WorksheetFunction.Match(mydata.Range("B" & i).Value, mymaster.Range("A1:A" & master_maxrow), 0)
 mydata.Range("C" & i).Value = mymaster.Range("B" & mycellno).Value
 
Next

Set mydata = Nothing
Set mymaster = Nothing
End Sub

Comments

[TanakaHiroaki]

マクロで実現する場合、WorksheetFunction.Match関数が高速なので参考になりました。

[mako1972]

いえ、いつも拝見していますよ。ありがとうございます。

[k-teratail]

ご回答ありがとうございます！
エクセルがあまり得意ではなく、vlookup関数もほとんど初耳なくらいですが色々な方法で実現することができるのですね。とても勉強になりました！書いていただいたソースを参考にマクロでも実装させてみたいと思います！

[mako1972]

moug モーグとかエクセルの情報が多数あるので参考にされてもいいかもしれませんね。

https://www.moug.net/faq/viewforum.php?f=1

[mattuwan]

http://officetanaka.net/excel/excel2016/07.htm

解決済ですが、参考までに。

Option Explicit

Sub test()
Dim myData As Range: Set myData = Sheets("シート1").CurrentRegion
Dim myMaster As Range: Set myMaster = Sheets("シート2").CurrentRegion
Dim c As Range

With WorksheetFunction
For Each c In myData.Columns(1).Cells
On Error Resume Next
c(1, 2).Value = myMaster(.Match(c.Value, myMaster, 0), 2).Value
On Error GoTo 0
Next
End With
End Sub

mako1972さんへ＞＞
Option Explicit　が、記述される設定にしておきましょう。
変数iの宣言が漏れているように思えます。

[mako1972]

ありがとうございます。
少し我流になっていますので参考にさせていただきます。

Answer 2

VLOOKUP関数を用いて実現できます。

【シート1】セルC1のVLOOKUP関数式は以下のようになります。
=VLOOKUP(B1,【シート2】!A:B,2,FALSE)

Comments

[mako1972]

数式をコピーすることを考えると、こうでしょうか・・。C１に下記を記述してコピー
= VLOOKUP(B1,master!$A:$B,2,FALSE)

[TanakaHiroaki]

コピーした場合に想定通りに値を取得できれば、それが正解です。

[mako1972]

横から申し訳ありませんでした。余計なコメントでした。

[k-teratail]

ご回答ありがとうございます！
VLOOKUP関数というものを自分なりに調べてみたのですが、ご回答いただいた【シート2】!A:Bの部分が参照する票の範囲になると思うのですが、『A:B』は『A1:B3』と書かなくても参照されるのでしょうか？数字の部分は省略可能なところなのかわからず、教えていただけると幸いです。

[TanakaHiroaki]

数字を省略すると、列を全て参照します。

[k-teratail]

そうなんですね！勉強になります！ありがとうございます！！