Excelで複数のメールアドレスをハイパーリンクに変換するにはどうすればよいですか？ 

ワークシートにプレーンテキストの電子メールアドレスのリストがあり、これらの電子メールアドレスを、アドレスをクリックしながら電子メールを送信できるハイパーリンクに変換したい場合。 もちろん、それらをハイパーリンクされた電子メールアドレスに変換することはできますが、変換する必要のあるアドレスが複数ある場合、この方法は退屈になります。 この記事では、このタスクに対処するためのいくつかの良いトリックについて説明します。

Formulaを使用して複数の電子メールアドレスをハイパーリンクに変換する

複数のメールアドレスをVBAコードでハイパーリンクに変換する

Formulaを使用して複数の電子メールアドレスをハイパーリンクに変換する

ハイパーリンク 機能を使用すると、列の電子メールアドレスをハイパーリンクされたアドレスに一度にすばやく変換できます。

1。 この式を入力してください = hyperlink（ "mailto："＆A2） 結果を配置する空白のセルに、スクリーンショットを参照してください。

2。 次に、塗りつぶしハンドルをこの数式を含めるセルまでドラッグすると、次のスクリーンショットに示すように、すべての電子メールアドレスがクリック可能なハイパーリンクになります。

複数のメールアドレスをVBAコードでハイパーリンクに変換する

ご覧のとおり、上記の式を使用すると、各メールアドレスの前に文字列「mailto：」が追加されます。アドレス内でmailto：を使用したくない場合は、次のVBAコードを使用するとよいでしょう。

1。 を押し続けます Altキー+ F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

VBAコード：複数のメールアドレスをハイパーリンクに変換する

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3。 コードを貼り付けたら、を押してください F5 このコードを入力すると、使用するデータ範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4。 そして、 OK、選択したすべての電子メールアドレスがハイパーリンクされたアドレスに変換されました。スクリーンショットを参照してください。