时间戳

首页 > 解决方案 > 基于 COUNTA 公式选择单元格的 VBA 代码

excel - 基于 COUNTA 公式选择单元格的 VBA 代码

问题描述

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

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

标签： excelvbacount

解决方案

请尝试下一个代码：

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

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

推荐阅读