エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
[Excel VBA]セルのハイパーリンクのURLを抽出する方法 · DQNEO日記
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
[Excel VBA]セルのハイパーリンクのURLを抽出する方法 · DQNEO日記
2年に1度くらいの頻度でExcel VBAのコードを書くDQNEOですこんにちわ。 ウェブページの表をエクセルに貼... 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