excel批量添加超链接vba代码问题?

发布网友发布时间：2022-05-10 16:15

共2个回答

热心网友时间：2023-10-15 13:19

代码应该是对的，由于我的表没有链接，我测试的表和程序如下：

上面程序建立的前4个表的链接是正确有效的，程序在模块中，代码文本如下：

Option Explicit

Sub 超链接()

Dim i As Integer

For i = 4 To 257

With Range("D" & i)

If .Hyperlinks.Count > 0 Then .Hyperlinks(1).Delete

.Hyperlinks.Add Range("D" & i), "", SubAddress:="'" & i - 3 & "'!A1"

End With

End Sub

热心网友时间：2023-10-15 13:19

Excel怎样快速生成工作表目录

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com