Question

保存一个宏，我将使用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

Answer 1

借鉴https://www.rondebruin.nl/win/s9/win005.htm

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

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

1 个答案: