这个程序是链接到 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
