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 こんな感じのマクロを作って呼び出してやればおkです。 Happy Excellin
![[Excel VBA]セルのハイパーリンクのURLを抽出する方法 · DQNEO日記](https://cdn-ak-scissors.b.st-hatena.com/image/square/8f7de7c0278993661a11fbc3637f96292ba773aa/height=288;version=1;width=512/http%3A%2F%2Fdqn.sakusakutto.jp%2Fimages%2Fkali.jpg)