ゴリラストロングの雑記帳

エクセルマクロの簡単なサンプルコードを掲載しています

【VBA】Vlookupの使い方の例。別の表から自動的に転記する。

どうも、ゴリラストロングです。

 

今回はVBAで、Vlookupの使い方の例として、別の表から自動的に転記するマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200324085125p:plain

 

<マクロ実行後>

f:id:gorilla-strong:20200324085258p:plain

 

 

 スポンサーリンク

 

 

ソースコード

Sub 関数()

Dim WS As Object
Set WS = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = WS.Cells(Rows.Count, 1).End(xlUp).Row

Dim rng1 As Range
Set rng1 = WS.Range("I3:L" & lastrow)

For i = 3 To lastrow

WS.Range("C" & i) = WorksheetFunction.VLookup(WS.Range("B" & i), rng1, 2, False)
WS.Range("D" & i) = WorksheetFunction.VLookup(WS.Range("B" & i), rng1, 3, False)
WS.Range("E" & i) = WorksheetFunction.VLookup(WS.Range("B" & i), rng1, 4, False)

Next

End Sub

 

<参照させていただいたサイト>

https://www.moug.net/tech/exvba/0100001.html

  

以上、ゴリラストロングでした。

 

 スポンサーリンク