EXCEL超链接批量设置VBA代码

2025-02-26 18:14:39

推荐回答（3个）

回答1：

答：

Sub AddHyperlinks()
    Dim i As Long
    With Sheets("Sheet1")
        For i = 2 To .Cells(Rows.Count, "L").End(xlUp).Row
            .Hyperlinks.Add anchor:=.Cells(i, "L"), Address:="", _
            SubAddress:="Sheet2!E" & i, TextToDisplay:=.Cells(i, "L").Value
        Next i
    End With
End Sub

回答2：

L2公式 =HYPERLINK("#sheet2!E2","链接文字")

回答3：

在事件里，用for循环加goto就可以了