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

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】INDEX、MATCHの使い方の例。一覧表にあるデータを取り出す。




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

 

今回はVBAで、INDEX、MATCHの使い方の例として、一覧表にあるデータを取り出すマクロを作成してみました。

 

<元データ>

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

 

<マクロ実行後>

f:id:gorilla-strong:20200324101753p: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 lastcolumn As Long
lastcolumn = WS.Cells(4, Columns.Count).End(xlToLeft).Column


Dim rng1, rng2, rng3 As Range
Set rng1 = WS.Range(WS.Cells(5, 1), WS.Cells(lastrow, 1))
Set rng2 = WS.Range(WS.Cells(4, 2), WS.Cells(4, lastcolumn))
Set rng3 = WS.Range(WS.Cells(5, 2), WS.Cells(lastrow, lastcolumn))



WS.Range("F1") = WorksheetFunction.Index(rng3, WorksheetFunction.Match(WS.Range("D1"), rng1, 0), WorksheetFunction.Match(WS.Range("D2"), rng2, 0))





End Sub

 

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

http://www.dwapp.top/google_tool/spreadsheets/737

 

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

 

 スポンサーリンク