Excel에서 여러 이메일 주소를 하이퍼링크로 변환하는 방법은 무엇입니까? 

Excel에 일반 텍스트 형식의 이메일 주소 목록이 있고, 이를 이메일을 보내기 위한 클릭 가능한 하이퍼링크로 변환하려는 경우, 여러 항목을 수동으로 처리하는 것은 시간이 많이 소요될 수 있습니다. 이 가이드에서는 HYPERLINK 수식을 사용하거나 VBA 매크로를 활용하는 두 가지 효율적인 방법을 소개합니다.

수식을 사용하여 여러 이메일 주소를 하이퍼링크로 변환하기

VBA 코드를 사용하여 여러 이메일 주소를 하이퍼링크로 변환하기

수식을 사용하여 여러 이메일 주소를 하이퍼링크로 변환하기

Hyperlink 함수를 사용하면 열에 있는 이메일 주소를 한 번에 하이퍼링크된 주소로 빠르게 변환할 수 있습니다.

1. 결과를 표시하고자 하는 빈 셀에 다음 수식 =hyperlink("mailto:"&A2) 을 입력하세요. 스크린샷을 참조하세요:

2. 그런 다음 채우기 핸들을 아래로 드래그하여 해당 수식을 포함할 셀에 적용하면, 모든 이메일 주소가 클릭 가능한 하이퍼링크로 변환됩니다. 아래 스크린샷을 참조하세요:

VBA 코드를 사용하여 여러 이메일 주소를 하이퍼링크로 변환하기

위 수식을 사용하면 각 이메일 주소 앞에 “mailto:” 문자열이 추가됩니다. 만약 주소에 mailto:를 포함하지 않으려면, 다음 VBA 코드가 도움이 될 수 있습니다.

1. Excel에서 Alt + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. Insert > Module을 클릭한 후, 나타나는 모듈 창에 다음 매크로를 붙여넣습니다.

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. 확인을 클릭하면, 선택한 모든 이메일 주소가 하이퍼링크된 주소로 변환됩니다. 스크린샷을 참조하세요: