UC知道excel中批量插入超链接？
来源：百度知道 编辑：UC知道 时间：2024/05/24 00:59:17
我想在EXCEL2007中批量插入超链接，就是点击sheet1中的A1单元格链接到sheet2，点击sheet1中的A2单元格链接到sheet3，点击sheet1中的A3单元格链接到sheet4，以此类推，大约500张sheet表。在等待，非常感谢。
'上面的宏要修改一下
Sub test()
Sheets(1).Activate
Cells(1, 1).Activate
For Each s In Sheets
i = i + 1
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
ActiveCell.Offset(1, 0).Activate
Next
End Sub
需要用宏来解决。下面是宏代码：
Sub test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count - 1
Sheets(i).Activate
ActiveSheet.Hyperlinks.Add anchor:=Range("a1"), Address:="", SubAddress:= _
Sheets(i + 1).Name & "!A1"
Next
Application.ScreenUpdating = True
Sheets(1).Activate
End Sub