Как узнать местоположение ячейки Н и добавить к гиперссылке

Question

Я устанавливаю гиперссылки в диапазоне, чтобы перейти к ячейкам таблицы

Все работает отдельно от с. Предполагается получить ячейку, а затем вставить ее в адрес.

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