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

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

那么我們?nèi)绾巫屼浫氲奈谋靖袷降膬?nèi)容轉(zhuǎn)換為超鏈接呢？

分享一個文本轉(zhuǎn)為超鏈接的函數(shù)，如果列中單元格為空的話，停止轉(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)換效果：