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