计算已使用行中的空单元格

Question

我有以下 VBA 代码，我想要计算使用的行数，然后在 B 列中找到空单元格的数量，它返回语法错误

Sub Logic()
 'Count Number of used Rows
LastRow = Worksheets("TASK").UsedRange.Rows.count 
Range("O3") = LastRow


'Count Number of Empty cells within the used Row
Dim EmptyCell As Integer
EmptyCell = Application.WorksheetFunction.CountIf(Range("B1":"B" & LastRow), "")
Range("O4") = EmptyCell 

End Sub

感谢您的帮助

Answer 1

下面是一个案例。 应该牢记的是，UsedRange 在填充工作表的单元格时会动态变化，并且会产生不可预知的结果——一切都取决于任务的设置和数据的配置

Option Explicit

Sub Logic()
    With Worksheets("TASK")
        'Count Number of Empty cells within the used Rows
        .Range("O4") = WorksheetFunction.CountBlank( _
            Intersect(.UsedRange, .Columns("B")))
    End With
End Sub