VBA变量无法返回正确计数求助：单日期场景宏运行失效

这个问题我之前处理过好几次，核心坑点就在End(xlDown)的行为上！当只有B5单元格有数据、下方全为空时，Range("B5").End(xlDown)不会停在B5，而是直接跳到B列的最后一行（比如Excel 2016及以后的B1048576），导致你计算的范围变成了从B5到整个列的末尾，计数自然完全错误。

问题根源分析 #

你原来的代码：

countofscenarios = Range(Range("B5"), Range("B5").End(xlDown)).Count

• 当B5下方有多个非空单元格时：End(xlDown)会精准定位到最后一个连续的非空单元格，范围正确，计数正常。
• 当只有B5有数据时：End(xlDown)会触发“跳转到区域末尾”的逻辑，直接到B列最后一行，此时计算的是几万行的单元格数量，完全不符合你的需求。

两种可靠的解决方案 #

方案1：先检查相邻单元格，分情况处理

这种方法逻辑直观，适合场景简单的情况：

Dim countofscenarios As Long
Dim startCell As Range
Set startCell = Range("B5")

' 先判断B5是否为空（可选，根据你的业务需求）
If IsEmpty(startCell) Then
    countofscenarios = 0
Else
    ' 检查B6是否为空，来决定范围
    If IsEmpty(startCell.Offset(1, 0)) Then
        countofscenarios = 1
    Else
        countofscenarios = Range(startCell, startCell.End(xlDown)).Count
    End If
End If

方案2：从下往上找最后一个非空单元格（更严谨）

这种方法能应对各种复杂情况（比如中间有空行、B5下方非连续有数据）：

Dim countofscenarios As Long
Dim lastRow As Long
Dim startRow As Long
startRow = 5 ' 你的起始行是B5

' 从B列最后一行往上找第一个非空单元格
lastRow = Cells(Rows.Count, "B").End(xlUp).Row

' 处理边界情况：如果B5及以上都为空
If lastRow < startRow Then
    countofscenarios = 0
Else
    ' 计算从startRow到lastRow的行数
    countofscenarios = lastRow - startRow + 1
End If

测试验证 #

• 当仅B5有数据时：lastRow等于5，countofscenarios = 5-5+1=1，正确。
• 当B5、B6、B7有数据时：lastRow=7，countofscenarios=7-5+1=3，正确。
• 当B5为空时：lastRow<5，计数为0，符合预期。

内容的提问来源于stack exchange，提问作者Hatt