基於 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 它...