Excel

セルの値からURLを抽出

More than 3 years have passed since last update.

data1.png


マクロ

参考: エクセルでハイパーリンクのURLだけを文字抽出したい - オフィス系ソフト - 教えて!goo


マクロ登録

Public Sub GetURL()

Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Range.Offset(0, 1) = h.Address
Next
End Sub


準備

マクロ2.png

マクロ1.png


実行結果

data2.png