[Excel VBA]セルのハイパーリンクのURLを抽出する方法

2013/08/23

2年に1度くらいの頻度でExcel VBAのコードを書くDQNEOですこんにちわ。

ウェブページの表をエクセルに貼り付けたときに、大量のハイパーリンクがセルにだーっと並んでいるとします。
そんなときに、リンクのURLを一気に抽出する方法を紹介します。

例：セルB3:B10にハイパーリンクが入ってる場合に、URLを抽出して隣の列に書きこむ

Sub getHyperLinkURLs()

    Range(Range("B1"), Range("B1").End(xlDown)).Select
    
    Dim cell As Range
    
    For Each cell In Selection
        cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
        Next
    End
    
End Sub

こんな感じのマクロを作って呼び出してやればおｋです。

Happy Excelling!

カテゴリ: VBA Excel