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

轉換效果：