excel - for 和 for 每个循环的问题

Question

我正在设置一个循环，但我不知道要输入什么代码。

在代码下方运行，但最后所有插入了超链接的单元格都显示单元格 173，此时第一个单元格中应该有指向单元格 32 的链接，然后是第二个单元格中的单元格 47，依此类推。我可以看到问题，但不确定该怎么做。

Sub Hyperlink()

Dim rng As Range
Dim cell As Range
Dim t1 As ListObject
Set t1 = Range("Testtbl").ListObject
Dim i As Integer
Dim p As String

Set rng = Range("CourseName")

For Each cell In rng
    For i = 1 To t1.ListRows.Count
        If t1.ListColumns("UnLockedField").DataBodyRange(i) = "H" Then
            p = t1.ListColumns("UnLockedField").DataBodyRange(i).Address

            With cell
                .Hyperlinks.Add Anchor:=cell, _
                    Address:="", _
                    SubAddress:=p
            End With
        End If
    Next i
Next cell
End If
0:
End Sub

我希望该范围内的每个单元格都有指向我需要去的单元格的链接。

标签： excelvbaloops