VBA WorksheetFunctionでVlookup関数を利用

WorksheetFunctionでVlookup関数を利用

Sub test()

' WorksheetFunctionでVlookup関数を利用

      Dim xlMaster As Range    '検索対象マスターシート
      Dim key        '検索キー
      Dim myRes  '　検索結果

      
      
      Set xlMaster = Sheets("Master").Range("A:B")


      key = Range("A2").Value

      On Error Resume Next

      myRes = WorksheetFunction.VLookup(key, xlMaster, 2, False)
      On Error GoTo 0

      Range("B2").Value = myRes

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事