Код VBA для выбора ячейки на основе формулы COUNTA - PullRequest
0 голосов
/ 21 июня 2020

Я хотел бы выбрать ячейку в столбце U (см. Желтое выделение) на основе количества имен, подсчитанных в столбце X + добавьте 1, чтобы получить правильную строку. Для иллюстрации выделена желтым цветом ячейка. Спасибо.

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

1 Ответ

0 голосов
/ 21 июня 2020

Попробуйте следующий код, пожалуйста:

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

Приведенный выше код закрасит внутреннюю часть последней пустой ячейки в красный цвет и выделит ее ...

...