URLセルをハイパーリンクへ
文字列でURLが入っている列に、全てハイパーリンク設定を適応。
Sub Macro1()
'
' Macro1 Macro
'
For a = 1 To 65536
b = Cells(a, "L")
If b = "" Then Exit For
ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, "L"), Address:=b, TextToDisplay:=b
Next a
End Sub
サンプルでは、L列すべてに適応。