Excel vba文本格式轉(zhuǎn)換成超鏈接

在録入Excel數(shù)據(jù)中，我們録入網(wǎng)址可能會直接變成超鏈接。也有可能會是文本格式。這箇跟選項設(shè)置有關(guān)

那麼我們?nèi)绾巫屽h入的文本格式的內(nèi)容轉(zhuǎn)換爲(wèi)超鏈接呢？

分享一箇文本轉(zhuǎn)爲(wèi)超鏈接的函數(shù)，如果列中單元格爲(wèi)空的話，停止轉(zhuǎn)換

Sub 文本轉(zhuǎn)超鏈接()
    
    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

轉(zhuǎn)換效果：