第3个回答 2015-07-28
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim addr1 As String, addr2 As String, rng1 As Range, rng2 As Range
addr1 = "a1" '要插入超级链接的地址
Set rng1 = Sh.Range(addr1)
addr2 = Sh.range("B65536").end(xlup).address 'B 列最后单元格地址
Set rng2 = Sh.Range(addr2)
'Sh.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
'"Sheet1!A1", TextToDisplay:="Sheet1!A1"
Sh.Hyperlinks.Add Anchor:=rng1, Address:="", SubAddress:= _
rng2.Address, TextToDisplay:=rng2.Address
End Sub
上面这个放在 thisworkbook里面,对所有表格生效本回答被网友采纳