以下代碼可循環(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
新聞熱點(diǎn)
疑難解答
圖片精選