如何创建忽略隐藏列的自定义求和函数（替代SUBTOTAL）

以下是可实现需求的VBA函数，专门对指定区域中所在列未隐藏的单元格进行求和：

Function SumVisibleColumns(rng As Range) As Double
    Dim cell As Range
    Dim total As Double
    
    total = 0
    ' 遍历区域内每个单元格
    For Each cell In rng
        ' 判断当前单元格所在列是否未隐藏
        If Not cell.EntireColumn.Hidden Then
            ' 累加单元格数值（自动忽略非数值内容）
            total = total + Val(cell.Value)
        End If
    Next cell
    
    SumVisibleColumns = total
End Function

使用方法：在Excel单元格中输入=SumVisibleColumns(A1:C10)，即可对A1:C10区域内、所在列未隐藏的单元格求和。

你之前代码的问题分析 #

第一段代码的错误： #

• 逻辑判断错误：myRange.SpecialCells(xlCellTypeVisible) = True是将整个可见区域与布尔值比较，在VBA中无法正确判定单个单元格的列是否隐藏
• 累加对象错误：循环遍历的是i，但累加的是myRange整个区域，而非当前单元格i的数值
• 数据类型不合理：mySum定义为Integer，求和数值较大时会出现溢出，应使用Double类型

第二段代码的错误： #

• 表达式逻辑错误：myRange.SpecialCells(xlCellTypeVisible) = True会生成布尔值数组，Sum函数会将True视为1、False视为0，而非求和单元格的实际数值
• 未针对列隐藏判断：SpecialCells(xlCellTypeVisible)主要识别行隐藏或筛选后的可见单元格，无法直接判断列是否隐藏

关于myRange.EntireColumn.Hidden的问题： #

你之前的尝试错误在于直接对整个区域的列进行判断，而非遍历每个单元格所在的列。myRange.EntireColumn会返回区域覆盖的所有列，只要其中一列隐藏，整个判断就会出错，必须逐个检查每个单元格的列状态。

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