Johnには、すべて列Aに数千を超えるURLが含まれているワークブックがあります。これらはハイパーリンクではありません。それらは個々のURLのストレートテキストです。 Johnは、URLをアクティブなハイパーリンクに変換したいと考えていますが、特にその数のURLの場合、個別に変換を行うのは非常に面倒です。

Excelのほとんどの退屈な場合と同様に、解決策はマクロを使用して変換を行うことです。マクロを有効にするには、選択した範囲内の各セルをステップスルーし、セルが空白でない場合は、コンテンツをハイパーリンクに変換する必要があります。以下はトリックを行います：

Sub URL_List()

For Each cell In Selection         If cell.Value <> "" Then             If Left(cell.Value, 7) = "http://" Then                 URL = cell.Value             Else                 URL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=URL, TextToDisplay:=cell.Value         End If     Next cell End Sub

マクロは絶対確実ではありません。セルに何かが含まれている場合、それは有効なURLであると想定します。セルの内容を確認し、内容の前に「http：//」のテキストが付いていない場合は追加されます。次に、セルの内容に基づいてハイパーリンクが作成されます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3110）は、Microsoft Excel 2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkURLの範囲をハイパーリンクに変換する。