excel 把整列文本转为超链接

[JCZ2MkKb5S8ZX9pq]

• 把整列 www.abc.com ，转为超链接。
• 不用新建列加 hyperlink，也不用一个个格子回车了。
• 其实我记得好像有别的方法，但是想不起来了。
• 搜到个 vba，改造了一下，建议单独存一个 xlsm 方便调用。
• 真是写得我恶心死了，写和调试都很别扭，语法也不熟。
• 分享一下，希望大家少走弯路。

Sub add_link_to_column()
    ThisCell = Selection.Address(ColumnAbsolute:=False)
    ' MsgBox "Selected Cell:" & ThisCell
    Column = Split(ThisCell, "$", -1)(0)
    ' MsgBox "This Column:" & Column
    thisSheet = ActiveSheet.Name
    ' MsgBox "Sheet Name:" & thisSheet
    totalRow = Worksheets(thisSheet).Range("A65536").End(xlUp).Row
    ' MsgBox "Max Row:" & totalRow
    
    ' 从第二行开始
    i = 2
    Do While i <= totalRow
    ' 跳过空行
        If Range(Column & i).Cells.Text <> "" Then
            Range(Column & i).Select
            Worksheets(thisSheet).Hyperlinks.Add Anchor:=Selection, Address:=Range(Column & i).Cells.Text, _
            TextToDisplay:=Range(Column & i).Cells.Text
        End If
        i = i + 1
        Loop
End Sub