VBAで２つの条件に合致するものを、表から抽出する方法を教えてください

質問

Ａ　　　　　Ｂ　　　Ｃ　　　　Ｄ　　　　Ｅ　・・・
１　　　　　　　　０　　１０％　　２０％　　３０％
２　　０　　　　　０　　　１　　　１．２　　１．６
３　１００以上　　２　　２．３　　２．５　　２．６
４　２００以上　　３　　３．１　　３．４　　３．８
５　３００以上　　３　　３．２　　３．５　　３．７
６　４００以上　　４　　４．３　　４．５　　４．８

上記のような表がシート１にあります。
Ａ列は売上、１行には前年比があり
それぞれの条件に合致する係数を取得したいのですが
シート２のＡ１セルに「売上」、Ａ２セルに「前年比」を入力することで
Ｂ１セルに係数が反映するようにはできるでしょうか？
例えば、Ａ１「２５０」Ａ２「１３」と入力すると
Ｂ１「３．１」と反映させたいのですが…

他の作業もあり、できればＶＢＡで作成したいと思っています。

よろしくお願いいたします。

回答No.1

kybo · ベストアンサー

関数で十分出来ます。Sheet2のB1に以下のようにいれます。

=INDEX(Sheet1!A1:E6,MATCH(A1,Sheet1!A1:A6),MATCH(A2/100,Sheet1!A1:E1))

あえてVBAですると、以下のようにすると簡単です。

Sub macro()
Dim X As Integer, Y As Integer
X = WorksheetFunction.Match(Worksheets("Sheet2").Range("A2").Value / 100, Worksheets("Sheet1").Range("A1:E1"))
Y = WorksheetFunction.Match(Worksheets("Sheet2").Range("A1").Value, Worksheets("Sheet1").Range("A1:A6"))
Worksheets("Sheet2").Range("B1").Value = Worksheets("Sheet1").Cells(Y, X).Value
End Sub

お礼

早速の回答ありがとうございます。

INDEX、MATCH関数でもできるんですね！！
VBAでの使用の仕方も初めて知りました！！

試してみたら正確に反映しました。

本当に助かりました。
ありがとうございました。

回答No.2

kybo

回答１：で言い忘れましたが、「１００以上」「２００以上」等は、実際には100、200と入力しておいて、セルの書式設定→表示形式→ユーザー定義で「0"以上"」と設定してあるとします。

お礼

補足いただいてありがとうございます。
最初何も考えずに実行していました。