如何获取 H 的单元格位置并添加到超链接

Question

我在某个范围内设置超链接以转到表格中的单元格

除了 p 之外，一切都有效。它应该获取单元格位置，然后将其插入地址中。

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

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

        p = Range(t1.ListColumns("UnLockedField").DataBodyRange(i))


        With cell
         .Hyperlinks.Add Anchor:=cell, _
         Address:=p
        End With


        GoTo NEXTONE

    End If

    Next i

NEXTONE:
Next cell
End If

我希望 p 能够获取单元格位置，然后将该单元格插入到地址中。

Answer 1

您不需要 Range 对象，也不能使用它（正如您所做的那样）来实现您想要的。应该是：
p = t1.ListColumns("UnLockedField").DataBodyRange.Cells(i).Address