Option Explicit

'事前に
'・InternetExplorerのインターネットオプションで保護モードを有効にする
'・VBEの参照設定で"Microsoft Internet Controls"にチェックを入れる
    
Sub test()

    'InternetExplorer起動
    Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    
    'サイトを表示
    objIE.Visible = True
    
    'ラインのサイト
    objIE.Navigate "https://line.me/ja/download"
    
    'ラインのサイトが完全に開くまで待機する
    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
    Loop
    
        'ダウンロードボタンを押す
    objIE.document.getElementsbytagname("a")(34).Click

    
    Set objIE = Nothing
    
End Sub

Option Explicit

'事前に
'・InternetExplorerのインターネットオプションで保護モードを有効にする
'・VBEの参照設定で"Microsoft Internet Controls"にチェックを入れる
    
Sub test()

    'InternetExplorer起動
    Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    
    'サイトを表示
    objIE.Visible = True
    
    'ラインのサイト
    objIE.Navigate "https://line.me/ja/download"
    
    'ラインのサイトが完全に開くまで待機する
    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
    Loop
    
    'aタグ要素のHTMLを全て書き出す
    Dim i As Long
    For i = 0 To objIE.document.getElementsbytagname("a").Length - 1
        ThisWorkbook.Worksheets(1).Cells(i + 2, 2) = objIE.document.getElementsbytagname("a")(i).outerHTML
    Next
    
    Set objIE = Nothing
    
End Sub

Option Explicit
Sub sample()
  Dim V4 As String
  Dim V5 As Object
  Dim V6 As Object
  Dim LastRow As Long
  Dim i As Long
  Dim key As String
  ' 画面更新を一時停止
  Application.ScreenUpdating = False
  ' 検索用の辞書
  Set V5 = CreateObject(“Scripting.Dictionary”)
  Set V6 = CreateObject(“Scripting.Dictionary”)

  ' 4列目の最終行を取得
  LastRow = Sheet(2).Cells(Rows.Count,4).End(xlUp).Row
  ' 検索用辞書を作成
  For i = 1 To LastRow
    V4 = Sheet(2).Cells(i,4)
    If V4 <> "" Then
      V5.Add V4, Sheet(2).Cells(i,5).Value
      V6.Add V4, Sheet(2).Cells(i,6).Value
    End If
  Next

  ' Sheet(1)の最終行を取得
  LastRow = Sheet(1).Cells(Rows.Count,1).End(xlUp).Row
  For i = 1 To LastRow
    key = Sheets(1).Cells(i, 5).Value
    If V5.Exists(key) Then '辞書に検索語が存在するか確認
      Sheets(1).Cells(i, 6).Value = V5.Item(key)
      Sheets(1).Cells(i, 7).Value = V6.Item(key)
    End If
  Next
  ' 画面更新を再開
  Application.ScreenUpdating = True
end Sub