Excelの数百のテキストURLをクリック可能なハイパーリンクに変換する方法

URLの列をハイパーリンクに変換して、ユーザーがセル内のURLをクリックしてブラウザで開くようにするにはどうすればよいですか？

100個のURLを貼り付け、それぞれが独自のセルに入りました。セルをダブルクリックしてそのままにすると、Excelがテキストを青に変えてリンクを作成します。100回ダブルクリックしたくないが、すべてのセルをリンクにフォーマットしたい。

ハイパーリンクを実行するためのExcelの関数は=Hyperlink("http://www.techonthenet.com","Tech on the Net")、"http://www.techonthenet.com"はインターネットアドレス"Tech on the Net"で、Excelセルに表示されるタイトルです。

したがって、URLをExcelファイルに書き込む場合は、この関数を各URLで囲みます。動的な名前を付けたくない場合は、常にURLを名前として使用することもできます。

プログラムで値を挿入しない場合、このサイトではHYPERLINKワークシート関数の使用について言及しています。さらに良いの参照ですけれども、この Excelにマクロを追加する方法を、順を追って説明され、彼らはマクロのコードを提供します。したがって、このマクロを追加した後、URLの列を選択してマクロを実行すると、列全体がハイパーリンクに変換されます。

ここから：URLをExcelでクリック可能なリンクに変換

Public Sub Convert_To_Hyperlinks()
  Dim Cell As Range
  For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
    If Cell <> "" Then
      ActiveSheet.Hyperlinks.Add Cell, Cell.Value
    End If
  Next
End Sub

マクロを作成する

• Excelドキュメントを開く
• Alt + F11キーを押して、マクロエディターを開きます。
• [ツール]メニューで、[表示]を左クリックして[プロジェクトエクスプローラ]を選択します。
• 「モジュール」というフォルダを探して右クリックし、「挿入」を選択してから「モジュール」を選択します。
• 選択したプロジェクトモジュールにコードを貼り付けます。
• Alt + F11キーを押してExcelブックに戻る（またはWindowsタスクバーのアイコンをクリックする）。

マクロを実行する

• マクロを実行するには、クリック可能なハイパーリンクに変換するクリックできないテキストリンクを選択します。
• Alt + F8キーを押してマクロセレクターウィンドウを開き、作成したマクロをクリックします。
• あなたのリンクはすべてクリック可能になりました！時間とデータ入力の疲労を軽減します:)

ExcelにURLをライブリンクとして扱うように指示するオプション設定がないとは信じがたいです。結局のところ、Outlookは自動的にこれを行います。しかし、これもまた、マイクロソフト製品です、ため息。

Excelにリンクの列があります。列を選択し、自分宛てのメールに貼り付けました。メールを受け取ったとき（Excel列はまだ選択されています）、ライブリンクを列に貼り付けました。できた！

または、メールを下書きとして保存し、保存した下書きをもう一度開くこともできます。実際にメールを送受信する必要はありません。

これを行う簡単な方法は、ExcelファイルをHTMLページとして保存することです。次に、HTMLページをExcelで再度開くと、リンクがクリック可能になります。

更新
時々これは機能しません。しかし、これは常に機能するようです。選択した列のURLを右クリックします。次にハイパーリンクをクリックし、[このドキュメントに配置]をクリックしますこれは常に機能しているようです

次は、1つの数式でクリック可能なリンクを作成します

=CONCAT("<",HYPERLINK(M28,M28),">")

数式を上書きしてクリーンアップする<>場合：
数式をコピーして、値を貼り付けます。+ を
使用して、個別に何も置き換えません。CtrlH<>

キーラの答えはあなたにここを示し、本質的にあなたにこれを与え、そして良い方向でした。要求に応じて大規模な選択を行うことができ、すべてを変換します。

Sub addHypers()

For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
    If cell <> "" Then
    ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value
    End If
    Next cell
End Sub

Sub removeHypers()
Intersect(Selection, ActiveSheet.UsedRange).Hyperlinks.Delete
End Sub

簡単な操作手順については、ExcelでURLテキストをクリック可能なハイパーリンクに変換する方法をご覧ください。

Excelで、クリック可能なハイパーリンクに変換する列をクリックします。
最初のオプションに従ってください：VBAコードでURLテキストをクリック可能なハイパーリンクに変換します

手順を実行し、を押した後F5、Microsoft Visual Basicアプリケーションを閉じてExcelファイルに戻ります。URLがクリック可能になります！

Excelの新しいバージョン（2018以降）では、ホームメニューバーの[スタイル]ドロップダウンを開き、スタイルとして[ハイパーリンク]を選択します。これにより、選択した範囲のクリック可能なハイパーリンクとしてテキストハイパーリンクがフォーマットされます。

マクロを作成したくない場合、追加の列を気にしない限り、URLの列の横に新しい列を作成するだけです。

数式の新しい列タイプ= HYPERLINK（A1）（A1を目的のセルに置き換えます）。次に、式を残りのエントリにコピーします。