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

【问题标题】：Hyperlinking a cell to another cell in the same worksheet将一个单元格超链接到同一工作表中的另一个单元格
【发布时间】：2020-02-14 04:53:06
【问题描述】：

我想如果在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

【问题讨论】：

使用Cells(i, Columns.Count).End(xlToLeft) 确定列。

标签： excel vba hyperlink

【解决方案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

【讨论】：

@cd3091 如果您发现答案有用，那么您应该接受（勾选绿色）答案，以便其他用户知道您的问题已解决。谢谢。