[[20220116233010]]　『別シートから条件検索』（あや）　ページの最後に飛ぶ

『別シートから条件検索』（あや）

VBA初心者です。
下記の例をご教示いただけると幸いです。

シート1とシート2があります。
シート1には、

　　A　　　　B　　C　　D　　E
1　1月　　　
2りんご　　
3みかん
4もも
5ぶどう

シート2には、
　
　　A　　　B　　C　　D　　E
1　　　　1月　2月　　3月　4月
2りんご　100　200　　100　100
3みかん　200　300　　200　200
4もも　　300　400　　300　300
5ぶどう　400　500　　400　400

シート1のB列にシート2のB2から以下の値を転記したいです。（シート1のA列の文字とシート2のA列の文字が一致する値）
ただ、シート1のA1の月が変わればシート2の該当する月の列の値が
転記できるようなコードをご教示いただけないでしょうか？
（例えば、シート1のA1が1月ならシート2はB列の値、2月に変えればC列の値が転記できるような）

シート1を軸としてシート2を条件検索できるようにしたいです。

初心者で説明も曖昧で申し訳ございません。
宜しくお願いします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 Sub Macro1()
    Worksheets("Sheet1").Range("B2:B5") _
        .FormulaR1C1 = "=IFERROR(INDEX(Sheet2!R1C1:R5C5,MATCH(RC1,Sheet2!C1,0),MATCH(R1C1,Sheet2!R1,0)),"""")"
 End Sub
（qwerty） 2022/01/17(月) 06:43

シート1の1月はB1ではないのですか。

（・・・） 2022/01/17(月) 14:22

コメント返信：

[ 一覧(最新更新順) ]

[[20220116233010]] 『別シートから条件検索』（あや） ページの最後に飛ぶ

[[20220116233010]]　『別シートから条件検索』（あや）　ページの最後に飛ぶ