以下代碼可循環(huán)訪問一列范圍數(shù)據(jù)，并將每個條目轉(zhuǎn)換為一個電子郵件地址。

　　Dim convertRng As Range

　　Change the range to suit your need.

　　Set convertRng = Range("Z1:Z99")

　　Dim rng As Range

　　For Each rng In convertRng

　　If rng.Value <> "" Then

　　ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.Value

　　End If

　　Next rng