Sub 链接()
Dim RG As Range
Dim X As Integer
For X = 2 To Range("A65536").End(xlUp).Row
Set RG = Sheets(1).Cells(X, 2)
RG.Hyperlinks.Add ANCHOR:=RG, Address:=Sheets(2).Cells(X, 1)
Set RG = RG.Offset(1)
Next
End Sub
Sub 宏1()
Dim x As Long, z, arr1
arr = Sheets("链接地址").Range("a2:a" & Sheets("链接地址").Range("a65536").End(xlUp).Row)
x = 1
For x = 1 To UBound(arr)
z = z + 1
Sheets("sheet1").Hyperlinks.Add anchor:=Cells(z, 1), Address:=arr(x,1)
Next x
End Sub
修正哈
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each sh In Sheets
If sh.Name = ActiveCell.Value Then
sh.Select
End If
Next
End Sub
这样更简单