基于 COUNTA 公式的 VBA 代码到 select 单元格

Question

我想 select 列 U 中的一个单元格（参见黄色突出显示）基于 X 列中计算的名称数量 + 加 1 以获得正确的行。 为了说明，突出显示的黄色单元格。 谢谢你。

:[]: ( https://i.stack.imgur.com/Pua8G.png )

Answer 1

请尝试下一个代码：

Sub testLastCell()
 Dim sh As Worksheet, lastEmptyRow As Long, rngEmptyW As Range, rngEmptyU As Range
 Set sh = ActiveSheet
 lastEmptyRow = sh.Range("X" & Rows.Count).End(xlUp).row
 Set rngEmptyW = sh.Range("W" & lastEmptyRow)
    rngEmptyW.Interior.Color = RGB(225, 0, 0)
    rngEmptyW.Select
    
 Set rngEmptyU = sh.Range("U" & lastEmptyRow)
     rngEmptyU.Interior.Color = RGB(0, 0, 225)
End Sub

上面的代码会将最后一个空单元格的内部着色为红色，select 它...