excelmacro https://blog.hatena.ne.jp/excelmacro/ excelmacro’s diary https://excelmacro.hateblo.jp/ Sub ハイパーリンク挿入() Dim My_Site As StringDim 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 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fexcelmacro.hateblo.jp%2Fentry%2F2021%2F10%2F03%2F220337" title="経路検索 - excelmacro’s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2021-10-03 22:03:37 rich https://excelmacro.hateblo.jp/entry/2021/10/03/220337 1.0 100%