Vba 跳转到行中最后一个非空单元格

保存了一个宏，在该宏中，我将使用CTRL+向右箭头键转到行中最后一个非空单元格。 但是，宏是通过记录J23单元保存的。 我希望它是动态的，这样如果最后一个非空单元格发生变化，例如，它是N23，它就会跳到那里

我希望我的其他步骤将始终链接到单元格L30、M30、N30和O30，但在本例中，它们使用相对坐标（例如，我尝试编辑从J23到N23的宏，链接的单元格会发生变化）

我可以使用哪些代码行使它以我需要的方式动态

谢谢你的帮助

Sub KPILinks()
'
' KPILinks Macro
'

'
    Range("I22").Select
    Selection.End(xlToRight).Select
    Range("J23").Select
    ActiveCell.FormulaR1C1 = "=R[7]C[2]"
    Range("J24").Select
    ActiveCell.FormulaR1C1 = "=R[6]C[3]"
    Range("J25").Select
    ActiveCell.FormulaR1C1 = "=R[5]C[4]"
    Range("J26").Select
    ActiveCell.FormulaR1C1 = "=R[4]C[5]"
    Range("J27").Select

End Sub

借来

借来

---

我设法找到了如何锁定链接的单元格。正在更改为ActiveCell.Formula=“=L30”您正在使用这些单元格做什么，您只是在尝试选择它们吗？@jmdon。不，不仅仅是选择它们。想要将它们始终链接到这些单元格L30、M30、N30和O30。我设法找到了如何锁定链接的单元格。正在更改为ActiveCell.Formula=“=L30”您正在使用这些单元格做什么，您只是在尝试选择它们吗？@jmdon。不，不仅仅是选择它们。希望始终将它们链接到这些单元格L30、M30、N30和O30。OP要求最后一列（我认为）。@jmdon很幸运，列的调整不仅简单，而且在链接中也可以找到OP要求最后一列（我认为）。@jmdon很幸运，列的调整不仅简单，而且在链接中也可以找到

Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
Dim LastRow As Long
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow
End Sub