office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2020-04-19 08:00:00
tmtony8
原创
3818

在录入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

转换效果:

    分享