答：
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
L2公式 =HYPERLINK("#sheet2!E2","链接文字")
在事件里，用for循环加goto就可以了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024