excel - 如何更改超链接的名称？

Question

下面的代码在 # 列下的 x 上创建了一个超链接，当单击时到达 2 个 PQ 列下的最新非空单元格(第一个 x -> 'good' under 'Blah PQ19' column, 4th x -> 1 under 'Blah PQ18' 列。)

我需要用 PQ18 或 PQ19 (在超链接到达的位置)替换/重命名 x。我尝试查看帖子以了解如何获取列标题名称并更改 x，但无法做到。
有谁知道如何做到这一点？

Dim i As Integer
Dim PCell As String

For i = 2 To 5

If Not IsEmpty(Cells(i, "CT").End(xlToRight)) Then
PCell = Cells(i, "CT").End(xlToRight).Address
ActiveSheet.Hyperlinks.Add Cells(i, 2), Address:="", SubAddress:="'" & Sheet1.Name & "'!" & PCell
End If

Next i

Answer 1

根据我的评论，您可以查看 TextToDisplay Hyperlinks.Add 的参数方法:

Range(A1:F5) 中的样本数据:



代码:

Sub Test()

Dim x As Long

With Sheet1 'Change according to your sheets CodeName
    For x = 2 To 5
        i = .Cells(x, "CT").End(xlToLeft).Column 'Notice xlToLeft instead to Right
        If i > 1 Then
            .Hyperlinks.Add .Cells(x, 1), "", "'" & .Name & "'!" & .Cells(x, i).Address, , .Cells(1, i).Value
        End If
    Next x
End With

End Sub

结果: