遗留VBA函数AantalZichtbareRows返回1的原因排查求助

首先，核心原因你已经摸到了：r.Areas.Count返回1是完全正常的，它和总行数1500根本不是一个概念——咱们得先把Excel VBA里Areas的作用搞清楚：

• Areas是Range对象的一个集合，它代表的是当前区域里所有连续的单元格块。比如，如果你选中了A1:A10和C1:C10两个不连续的区域，那Areas.Count就是2；但如果你的rng是一整块连续的单元格（比如A1:D1500），那不管它有多少行多少列，Areas.Count都会是1。

你看到For Each row In rng.Rows能遍历1500行，恰恰说明你的rng是一块连续的大区域，所以Areas.Count=1是符合预期的。

那为什么AantalZichtbareRows会返回1？大概率是这个函数的逻辑写错了。举两个常见的错误场景：

错误场景1：直接把Areas.Count当成行数返回 #

比如函数可能写成了这样：

Function AantalZichtbareRows(r As Range) As Integer
    Dim n As Integer
    n = r.Areas.Count
    AantalZichtbareRows = n ' 这里直接返回区域块数，而不是可见行数！
End Function

这显然是逻辑错误，Areas.Count和可见行数没有直接关系。

错误场景2：遍历Areas时提前退出循环 #

比如函数本来想统计每个区域的可见行数，但错误地在第一个区域就退出了：

Function AantalZichtbareRows(r As Range) As Integer
    Dim area As Range
    Dim rowCount As Integer
    rowCount = 0
    
    For Each area In r.Areas
        ' 只统计第一个区域的可见行数就退出了
        rowCount = area.SpecialCells(xlCellTypeVisible).Rows.Count
        Exit For ' 这里的Exit For是罪魁祸首！
    Next area
    
    AantalZichtbareRows = rowCount
End Function

如果你的rng是一块连续区域，那第一个Area就是整个1500行的区域，但如果这时候SpecialCells(xlCellTypeVisible).Rows.Count返回1，那说明你的表格里只有1行是可见的（其他行被隐藏了）——这时候你需要检查Excel表格里是不是大部分行都被隐藏了。

正确的可见行数统计方法 #

如果要准确统计rng里的所有可见行数，应该这么写（还要考虑没有可见行的报错情况）：

Function AantalZichtbareRows(r As Range) As Long
    Dim visibleRange As Range
    Dim totalVisible As Long
    
    ' 处理没有可见行的情况，避免报错
    On Error Resume Next
    Set visibleRange = r.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not visibleRange Is Nothing Then
        totalVisible = 0
        ' 遍历每个连续的可见区域，累加行数
        For Each area In visibleRange.Areas
            totalVisible = totalVisible + area.Rows.Count
        Next area
    Else
        totalVisible = 0
    End If
    
    AantalZichtbareRows = totalVisible
End Function

总结一下：

• r.Areas.Count=1说明你的rng是连续区域，和总行数无关；
• AantalZichtbareRows返回1要么是函数逻辑错误（把区域块数当行数），要么是你的表格确实只有1行可见；
• 用上面的正确方法重新实现函数，就能得到准确的可见行数。

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