日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

如果Excel表格中的某個區(qū)域有許多文本格式的郵件地址需要添加鏈接，用手工的方式非常繁瑣。可以使用下面的VBA代碼來快速添加鏈接，假設(shè)該區(qū)域為F2:F18。

Sub ConvertToEmail()
Dim convertRng As Range
Set convertRng = Range("F2:F18")
Dim rng As Range
For Each rng In convertRng
If rng.Value <> "" Then
ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.Value
End If
Next rng
End Sub