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), Ad…