経路検索
Sub ハイパーリンク挿入()
Dim My_Site As String
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
My_Site = "https://www.google.co.jp/maps/dir/" & Cells(i, 1) & "/" & Cells(i, 2)
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 3), Address:= _
My_Site, TextToDisplay:="ルート検索"
Next i
End Sub