如何用VBA检测Excel工作表某行是否包含下拉按钮？

你提到的这种带求和、计数等功能的下拉按钮，是Excel表格（ListObject）的**汇总行（Total Row）**特有的控件，不属于数据验证（Validation）或自动筛选（AutoFilter）范畴，因此之前的检测方法无效。以下是两种针对性的VBA检测方案：

方法1：判断目标行是否为表格的汇总行 #

遍历工作表内所有表格，检查目标行是否是已启用汇总行的表格的汇总行：

Function IsTotalRow(targetRow As Long, ws As Worksheet) As Boolean
    Dim tbl As ListObject
    For Each tbl In ws.ListObjects
        If tbl.ShowTotals Then
            If tbl.TotalsRowRange.Row = targetRow Then
                IsTotalRow = True
                Exit Function
            End If
        End If
    Next tbl
    IsTotalRow = False
End Function

' 调用示例
Sub CheckTotalRow()
    Dim targetRow As Long: targetRow = 9 ' 替换为你要检测的行号
    Dim ws As Worksheet: Set ws = ActiveSheet ' 替换为目标工作表
    
    If IsTotalRow(targetRow, ws) Then
        MsgBox "第" & targetRow & "行包含汇总行功能下拉按钮"
    Else
        MsgBox "第" & targetRow & "行不包含汇总行功能下拉按钮"
    End If
End Sub

方法2：检查目标行内是否存在汇总行下拉按钮 #

逐单元格检查目标行的已使用区域，判断单元格是否属于表格的汇总行范围：

Function HasTotalRowDropdown(targetRow As Long, ws As Worksheet) As Boolean
    Dim cell As Range
    For Each cell In ws.Rows(targetRow).UsedRange
        If Not cell.ListObject Is Nothing Then
            With cell.ListObject
                If .ShowTotals And Not Intersect(cell, .TotalsRowRange) Is Nothing Then
                    HasTotalRowDropdown = True
                    Exit Function
                End If
            End With
        End If
    Next cell
    HasTotalRowDropdown = False
End Function

' 调用示例
Sub CheckDropdownInRow()
    Dim targetRow As Long: targetRow = 9
    Dim ws As Worksheet: Set ws = ActiveSheet
    
    If HasTotalRowDropdown(targetRow, ws) Then
        MsgBox "第" & targetRow & "行存在汇总行功能下拉按钮"
    Else
        MsgBox "第" & targetRow & "行不存在汇总行功能下拉按钮"
    End If
End Sub

注意事项 #

• 汇总行是Excel表格（ListObject）的专属功能，只有将普通数据区域转换为表格后才能启用该功能
• 代码中使用UsedRange可以减少无效遍历，仅检查目标行中有实际内容的单元格区域

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