【エクセルVBA】Vlookup関数の列番号がずれない問題を解決

Vlookup関数を作ったときに、困ることありませんか？

コピペで作ると列番号がずれない！！！

エクセルってセルの位置とかはコピペするとずれてくれるんですけど、列番号ってただの数字なので変わってくれないんですよね(^^;
3個ぐらいならいいんですけど、100個だったら（そんな状況無いとは思いますけど笑）手作業で変えるの大変です。

そんな時に便利なのがVBAなんです。
VBAは下記のようなメリットがありまして、事務作業する人には強い味方になります。

今回はVlookup関数の列番号がずれない問題を解決するためのVBAを紹介しながら、VBAのメリットが伝わればいいなと思っております！

解説はYouTubeの方をご覧ください。

【エクセルVBA】Vlookup関数の列番号が自動でずれない問題を解決

コードが2つありますが、どちらも動きは同じです。「中身よくわかんないけど必要なとこだけ変更して自分の環境で使いたいよ！」って人は１個目の方が変更しやすいと思います。
YouTubeで解説している方は2個目になります。

サンプルコード　その１

Sub Sample1()

    Dim 列番号1 As Long   'Vlookup関数を貼り付ける列番号
    Dim 列番号2 As Long    '参照に使う列番号

    列番号2 = 2     '関数の中に入る列番号
    
    For 列番号1 = 3 To 15   '３列目から15列目にVlookup関数を貼り付ける
                
        '関数を作成してセルに貼り付け
        Cells(15, 列番号1) = "=VLOOKUP($B$15,$B$5:$O$9," & 列番号2 & ",0)"
        
        列番号2 = 列番号2 + 1   '１を足す
        
    Next 列番号1

End Sub

サンプルコード　その２

Sub Sample2()

    Dim 列番号 As Long

    For 列番号 = 3 To 15
    
        Cells(15, 列番号) = "=VLOOKUP($B$15,$B$5:$O$9," & 列番号 - 1 & ",0)"
    
    Next 列番号

End Sub

少しでも参考になれば幸いです(^^)