如何将Excel中51个复选框网格索引为显示True的单列表数组？

完全可以实现这个需求，通过Excel VBA遍历所有复选框并筛选选中状态的项，最终生成单列数组（或直接输出到工作表）。以下是针对两种常见复选框类型的具体方案：

处理表单控件复选框（Form Control CheckBox） #

这类是Excel原生表单控件，对应的操作代码如下：

Sub GetCheckedFormCheckboxes()
    Dim cb As Shape
    Dim resultArr() As String
    Dim count As Integer
    count = 0
    
    ' 遍历当前工作表内所有表单控件复选框
    For Each cb In ActiveSheet.Shapes
        If cb.Type = msoFormControl And cb.FormControlType = xlCheckBox Then
            ' 判断复选框是否处于选中状态
            If cb.ControlFormat.Value = xlOn Then
                count = count + 1
                ReDim Preserve resultArr(1 To count)
                ' 这里存储复选框名称，可替换为cb.TopLeftCell.Value获取对应单元格内容
                resultArr(count) = cb.Name
            End If
        End If
    Next cb
    
    ' 将结果转置为单列输出到A列（可自行修改输出位置）
    If count > 0 Then
        Range("A1:A" & count).Value = Application.Transpose(resultArr)
    Else
        MsgBox "当前没有选中的复选框"
    End If
End Sub

处理ActiveX控件复选框（ActiveX Control CheckBox） #

如果你的复选框是ActiveX类型，使用以下代码：

Sub GetCheckedActiveXCheckboxes()
    Dim cb As OLEObject
    Dim resultArr() As String
    Dim count As Integer
    count = 0
    
    ' 遍历当前工作表内所有ActiveX复选框
    For Each cb In ActiveSheet.OLEObjects
        If cb.progID = "Forms.CheckBox.1" Then
            ' 判断复选框是否选中
            If cb.Object.Value = True Then
                count = count + 1
                ReDim Preserve resultArr(1 To count)
                ' 可替换为cb.TopLeftCell.Value获取单元格内容
                resultArr(count) = cb.Name
            End If
        End If
    Next cb
    
    ' 输出单列结果
    If count > 0 Then
        Range("A1:A" & count).Value = Application.Transpose(resultArr)
    Else
        MsgBox "当前没有选中的复选框"
    End If
End Sub

额外说明 #

• 若仅需要内存中的单列数组，直接使用代码里的resultArr即可，通过Application.Transpose(resultArr)可将一维数组转为单列数组格式。
• 根据实际需求，可修改存储内容：比如把cb.Name替换为cb.TopLeftCell.Value，这样数组会存储复选框所在单元格的内容，更贴合业务场景。

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