EXCELの表を参照して値を返す方法

質問

例えば下記のような表があるとします。
表1（シート１）
　A列　　B列
　～10　　A
11～20　　B
21～30　　C
31～50　　D
　・
　・
　・
151～　　Z
表２（シート２）
45　　　X
21　　　X
133　　 X

Xの箇所に表１のA列を参照してB列の値（AとかC）を返す方法はないでしょうか？IF文を使った場合７レベルまではできるのですが、それ以上のネストは無理なようです。ちなみに表１は３０分類（行）ほどあります。
よろしくお願いします。

回答No.4

gyouda1114 · ベストアンサー

Vlookup関数を使おう
但し、A列は、数値とし、昇順に入力すること
Sheet1（表1）
　　　A＿B
　1＿ 1＿A
　2＿11＿B
　3＿21＿C
　4＿31＿D
　5＿41＿E
　6＿51＿F
　7＿61＿G
　8＿71＿H
　9＿81＿I
10＿91＿J
11_101＿K
12_111＿L
13_121＿M
14_131＿N
15_141＿O
16_151＿P

Seet2（表2）
　　 A＿ B
　1__ 45＿　 　　
　2__ 21＿
　3_ 133＿

　B1に =VLOOKUP(A1,$A$1:$B$16,2)(下方にオートフィル）

お礼

回答ありがとうございました。使用法を理解するのに少し時間がかかりましたが、なんとか解決できました。ヘルプで何時間も、使える関数がないか探していたのですがわかりませんでした。検索キーは完全に一致しなくても使えるのですね。これでいっきに作業が進みます。ありがとうございました。

回答No.5

pkh4989

マクロです、試してみてください。

Sub Test()
　　Dim wR　　　　　As Long
　　Dim xR　　　　　As Long
　　Dim wNum　　　　As Long
　　Dim sNo　　　　 As Long
　　Dim eNo　　　　 As Long
　　Dim wI　　　　　As Long
　　Dim wSt　　　　 As String
　　Dim eVal　　　　As String
　　'
　　With Worksheets("Sheet2")
　　　　For wR = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
　　　　　　wNum = .Cells(wR, "A")
　　　　　　eVal = ""
　　　　　　With Worksheets("Sheet1")
　　　　　　　　For xR = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
　　　　　　　　　　wSt = .Cells(xR, "A")
　　　　　　　　　　wI = InStr(wSt, "～")
　　　　　　　　　　If wI = 1 Then
　　　　　　　　　　　　sNo = 0: eNo = Mid(wSt, wI + 1)
　　　　　　　　　　Else
　　　　　　　　　　　　sNo = Left(wSt, wI - 1): eNo = Mid(wSt, wI + 1)
　　　　　　　　　　End If
　　　　　　　　　　If wNum >= sNo And wNum <= eNo Then
　　　　　　　　　　　　eVal = .Cells(xR, "B")
　　　　　　　　　　　　Exit For
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　End With
　　　　　　.Cells(wR, "B") = eVal
　　　　Next
　　End With
End Sub

お礼

ご回答ありがとうございました。多分すばらしい方法を教えていただいたのだと思いますが、まだ私はマクロの使い方をしらないので、今回はVLOOKUPを使用したいと思います。今後マクロを勉強したときに参考にさせていただきます。ありがとうございました。

回答No.3

koko88okok

VLOOKUP関数をお使いください。

「VLOOKUP関数を制覇しよう！」
http://allabout.co.jp/computer/msexcel/closeup/CU20060805A/

「Excel豆知識24　24-1 VLOOKUP関数 3」
http://www11.plala.or.jp/koma_Excel/contents3/mame3024/mame302401.html

お礼

回答ありがとうございました。使用法を理解するのに少し時間がかかりましたが、なんとか解決できました。ヘルプで何時間も、使える関数がないか探していたのですがわかりませんでした。検索キーは完全に一致しなくても使えるのですね。これでいっきに作業が進みます。ありがとうございました。

回答No.2

mu2011

一例です。
=IF(A1<>"",VLOOKUP(A1,sheet1!A:B,2,TRUE),"")として下方向にコピー
但し、Ａ列は、0,11,21,31,51・・・151として昇順に配列として下さい。

お礼

回答ありがとうございました。使用法を理解するのに少し時間がかかりましたが、なんとか解決できました。ヘルプで何時間も、使える関数がないか探していたのですがわかりませんでした。検索キーは完全に一致しなくても使えるのですね。これでいっきに作業が進みます。ありがとうございました。

回答No.1

FEX2053

VLOOKUPの教科書にあるような質問ですね。

まずとりあえず、VLOOKUPの参照ができるように、A列を

10
20
30
：
150
99999（これ以上は絶対に来ない値）

と書き換えます。その上で、

=VLOOKUP(Sheet2!A1,Sheet1!$A$1:$B$16,2,FALSE)

これで「Ａ列の値を超えない最大値に対応する文字」が出てきます。
詳細は以下のURL、特に３ページ目を読んで見て下さい。
http://allabout.co.jp/computer/msexcel/closeup/CU20060805A/

お礼

回答ありがとうございました。使用法を理解するのに少し時間がかかりましたが、なんとか解決できました。ヘルプで何時間も、使える関数がないか探していたのですがわかりませんでした。検索キーは完全に一致しなくても使えるのですね。これでいっきに作業が進みます。ありがとうございました。