Excel vba文本格式转换成超链接

在录入Excel数据中，我们录入网址可能会直接变成超链接。也有可能会是文本格式。这个跟选项设置有关

那么我们如何让录入的文本格式的内容转换为超链接呢？

分享一个文本转为超链接的函数，如果列中单元格为空的话，停止转换

Sub 文本转超链接()
    
    Dim i As Integer
    i = 1
    With ActiveSheet
        Do Until .Cells(i, 1) = ""
            .Hyperlinks.Add Anchor:=.Cells(i, 1), Address:=.Cells(i, 1).Value
            i = i + 1
        Loop
    End With
    
End Sub

转换效果：