ExcelのハイパーリンクからタイトルとURLを一括抽出する方法｜VBA初心者でもChatGPTで一瞬！

---

Excelでブログ記事一覧を整理中に、ふと困ったこと

ブログ記事を一覧管理するために、私はExcelにタイトル（リンク付き）を入力しています。
でもあるとき、こう思いました。

「このハイパーリンク、タイトルとURLを別々にしたいな…」

ひとつひとつ手でコピペするのは面倒。しかも、記事が増えてくると、もうやってられません。

---

VBA？ それってプログラミング？

調べてみると「VBAでできる」と出てきました。
でも、私はVBAの知識はほとんどゼロ。コードを読んでなんとなく意味がわかる程度で、自分で書くなんてとても無理です。

そこで試してみたのが――ChatGPT。

---

ChatGPTに相談してみたら…

やりたいことは明確でした。

• B列にハイパーリンク付きのタイトルがある
• C列にタイトル（表示文字列）、D列にURLを自動で分けたい

この内容をそのままChatGPTに伝えたところ、わずか数秒でこんなコードが返ってきました。

ChatGPTの相談方法はこちら↓

---

実際に使ったVBAコードはこちら

vbaコピーする編集するSub ハイパーリンクをタイトルとURLに分ける()
    Dim i As Long
    Dim lastRow As Long
    Dim ws As Worksheet
    Dim hLink As Hyperlink

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row

    For i = 1 To lastRow
        If ws.Cells(i, 2).Hyperlinks.Count > 0 Then
            Set hLink = ws.Cells(i, 2).Hyperlinks(1)
            ws.Cells(i, 3).Value = hLink.TextToDisplay
            ws.Cells(i, 4).Value = hLink.Address
        End If
    Next i

    MsgBox "完了しました！", vbInformation
End Sub

---

【補足】開発タブが表示されていない場合の設定方法

「Alt + F11 を押したけど、開発タブが見当たらない！」という場合は、以下の手順で表示できます。

▼ 開発タブを表示する方法（Windows版Excel）

1. Excel画面上部の「ファイル」→「オプション」を開く
2. 左側メニューから「リボンのユーザー設定」を選ぶ
3. 右側の「主なタブ」一覧にある「開発」にチェックを入れる
4. 「OK」をクリックして完了！

これで、「開発」タブが表示され、「Visual Basic（VBA）」を使えるようになります。

---

手順：VBAなんてやったことなくてもOK

1. Excelで「Alt + F11」キーを押してす、もしくは「開発」タブからVBAエディタを開く
2. 「挿入」→「モジュール」をクリック
3. 上のコードを貼り付ける
4. 「F5キー」で実行！

たったこれだけ。
ものの数秒で、すべてのリンクが「タイトル」と「URL」に分かれました。

---

ChatGPTを使えば、VBAもこわくない

自分で一からコードを書くのは無理でも、やりたいことをハッキリ伝えれば、ChatGPTが“使えるコード”を提示してくれます。

しかも、私のように「なんとなく意味が分かる」レベルでも大丈夫。
自分の業務や作業にピッタリのコードが、その場で手に入るんです。

---

まとめ：ChatGPTがいれば、知識ゼロでも作業効率アップ

• Excelでハイパーリンクを分解したい
• VBAってむずかしそう…
• 作業時間を短縮したい！

そんな方にこそ、ChatGPTは強い味方になります。

---

📝 「やりたいけど、難しそう…」をChatGPTが解決してくれる体験
あなたもぜひ、一度試してみてください。

✅ VBAの基本をもう少し学びたい方へ
「Excel VBA超入門」などの講座が人気のUdemyで、自分のペースで学べます。
👉 初心者向けVBA講座を探す（Udemy）