在每个单元格中插入一个复选框并将其分配给该单元格

我需要向链接到该单元格的每个单元格添加一个复选框。选中时，它将返回 true，未选中时，它将返回 false 到其分配到的单元格中。

该工作表有数千个单元格，当我手动插入它们时，我意识到必须有更好的解决方案。

The sheet I am working on looks like this:

给你，克林顿。

Sub AddCheckBoxes()

Dim cb As CheckBox
Dim myRange As Range, cel As Range
Dim wks As Worksheet

Set wks = Sheets("mySheet") 'adjust sheet to your needs

Set myRange = wks.Range("A1:A10") ' adjust range to your needs

For Each cel In myRange

    Set cb = wks.CheckBoxes.Add(cel.Left, cel.Top, 30, 6) 'you can adjust left, top, height, width to your needs


    With cb

        .Caption = ""
        .LinkedCell = cel.Address

    End With

Next

End Sub