如何在VBA函数中对符合条件的区域中的可见/过滤单元格进行平均？

Function AverageVisibleCellsInRange(rng As Range) As Double
    Dim visibleRange As Range
    Dim cell As Range
    
    ' 获取可见单元格的范围
    On Error Resume Next
    Set visibleRange = rng.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 计算可见单元格的平均值
    If Not visibleRange Is Nothing Then
        AverageVisibleCellsInRange = Application.WorksheetFunction.Average(visibleRange)
    Else
        AverageVisibleCellsInRange = 0
    End If
End Function

Dim avg As Double
avg = AverageVisibleCellsInRange(Range("A1:A10"))