【Excel】VBAマクロにてvlookupを別シートや別ブックで繰り返し行う方法【使い方】 | モアイライフ(more E life)
EXCELのYouTube始めました!

EXCEL初心者に向けたYouTubeチャンネルを開始しました(^^)/
ぜひチャンネル登録よろしくお願いします!

効率よくエクセルを学ぶ!

【Excel】VBAマクロにてvlookupを別シートや別ブックで繰り返し行う方法【使い方】

Excelのスキルアップ
本サイトでは記事内に広告が含まれています

この記事では、VBAマクロにてvlookupを別シートや別ブックで繰り返し行う使い方について解説していきます。

マクロを使いこなせると、大幅な業務改善ができるため、この機会に理解しておくといいです。

サンプルコードも記載していますので、ぜひ参考にしてみてください。

 

スポンサーリンク

VBAマクロにてvlookupを別シートに繰り返し行う方法【使い方】

それでは以下でマクロにてvlookupを別シートに繰り返し(最終行まで)適用する方法を見ていきます。

後のサンプルコード内で、

Application.VLookup(searchValue, lookupRange, 3, False)

の部分がいわゆるVLOOKUPをマクロを用いている部分となります。

今回は、参照用別シートの名前に対する値段を、検索用シートにVLOOKUP適用する方法をみていきます。サンプルコードをます紹介します。


Dim searchRange As Range
Dim lookupRange As Range
Dim resultRange As Range
Dim searchValue As String

'検索用シートのA列、B列の範囲を設定する
Set searchRange = Sheets("検索用シート").Range("A:A")
Set resultRange = Sheets("検索用シート").Range("B:B")

'参照用別シートのA列、C列の範囲を設定する
Set lookupRange = Sheets("参照用別シート").Range("A:C")

'各行に対して検索を行う
For Each cell In searchRange
'検索名を取得する
searchValue = cell.Value

'検索名が空でない場合にのみ処理を行う
If searchValue <> "" Then
'vlookup関数で参照用別シートのC列から値を検索する
cell.Offset(0, 1).Value = Application.VLookup(searchValue, lookupRange, 3, False)
End If
Next cell
End Sub

 

以下が参照用シートの中身です。

そして、こちらが検索用シートの中身です。別シートにマクロでVLOOKUPを繰り返しかけ、値段を抽出していきましょう。

Alt+F8で開き、上のコードを貼り付け、実行させます。

結果は以下の通り。

このようにして、マクロのVLOOKUPにて別シートに繰り返し適用する処理が完了です。

ファイル名などをきちんと指定しないとエラーとなるので注意しましょう。

 

 

まとめ VBAマクロにてvlookupを別ブックや別シートやで繰り返し行う方法【使い方】

ここでは、VBAマクロにてvlookupを別ブックや別シートやで繰り返し行う方法【使い方】について解説しました。

マクロはとにかく慣れが大切。

たくさんのコードを見て、実践し、業務を効率化していきましょう。

コメント

スポンサーリンク
タイトルとURLをコピーしました