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

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

---

正如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

---

正如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

---

使用

单元格（i，Columns.Count）.End（xlToLeft）

确定列。使用

单元格（i，Columns.Count）.End（xlToLeft）

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