将一个单元格超链接到同一工作表中的另一个单元格

Question

我想如果在A列下单击x，绿色矩形移动到最右边的1：单击A1处的第一个x到达（1，P3），A2 ->（2，P2），A3 ->（ 3, P2), A4 -> (4, P3)。

我编写代码的目的是将 A1、A2、A3 和 A4 超链接到相应的 PCell。 如何获取 P 列下最右侧的 1？

还有另一种方法吗？

Sub GoToPCell()

Dim i As Integer, PCell As String

PCell =


For i = 1 To 4

ActiveSheet.Hyperlinks.Add Cells(i, 1), Address:="", SubAddress:="'" & Sheet1.Name & "'!PCell"


Next i

End Sub

Answer 1

正如 BigBen 先生评论解决您问题的主要部分。 我刚刚发布了完整的子如下。 尝试...

Sub GoToPCell()
Dim i As Integer, PCell As String
    For i = 1 To 4
        PCell = Cells(i, Columns.Count).End(xlToLeft).Address
        ActiveSheet.Hyperlinks.Add Cells(i, 1), Address:="", SubAddress:="'" & Sheet1.Name & "'!" & PCell
    Next i
End Sub