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

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

上面程序建立的前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

  Next

End Sub

这个程序是链接到 F\链接 下的工作薄, 不是链接到本工作薄的工作表，

所以你是不可能成功的，

等等给你写个，先占楼

Sub 链接()

i = 2

Do While Range("A" &i).Cells.Text <>""

Range("A" &i).Select

Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" &range("B" &i) &"'!A1"

i = i + 1

Loop

End Sub

---