使用VBA Excel，我尝试计算条目之间的列中的空单元格的数量

Sub CountEmptyCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim emptyCellCount As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设要计算的列是A列
    
    ' 初始化空单元格计数器
    emptyCellCount = 0
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 检查当前行的A列单元格是否为空
        If IsEmpty(ws.Cells(i, "A")) Then ' 假设要计算的列是A列
            emptyCellCount = emptyCellCount + 1
        End If
    Next i
    
    ' 显示结果
    MsgBox "空单元格的数量为：" & emptyCellCount
End Sub