Re: コピー＆ペーストしたメールアドレスを一括してリンク設定できないですか?

鴻池です。

"yuuji hashimoto" <rubi0206@iwk.bbiq.jp> wrote in message
news:bjbq0n$j35$1@fnews11.bbiq.jp...
> Naoaki Satoさん　石川さんありがとうございます。
> マクロはよく分からないので、もう少し勉強してやってみます。

蛇足ですが，マクロでよいなら，次のようなやつでもなんとか機能すると思います。

Sub addhyperlink()  'メール形式のハイパーリンクの設定
    Dim h As Range
    Dim hantei As Boolean

    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    For Each h In Selection
        hantei = h.Value Like "?*@?*"
        If hantei Then
            With ActiveSheet
            .Hyperlinks.Add anchor:=.Cells(h.Row, h.Column),
Address:=h.Value
            End With
        End If
    Next
End Sub

Sub delhyperlink()  'ハイパーリンクの削除
    For Each h In ActiveSheet.Hyperlinks
        h.Delete
    Next
End Sub

マクロの使い方については，石川さんが既に説明済みなのでそちらを参考に。

-- 
******************************
   keizi kounoike
******************************