Sub 激活超链接并访问()
For Each a In [b1:b20]
ActiveSheet.Hyperlinks.Add a, a.Value
Next
For b = 1 To 20
Range("B" & b).Select
Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
Next
For Each a In [b1:b20]
ActiveSheet.Hyperlinks.Add a, a.Value
Next
For b = 1 To 20
Range("B" & b).Select
Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
Next
End Sub