1：在第一个单元格插入复选框后拖动复制。 2：如果单元格区域不规则可以用下面代码： Private Sub AddCheckBoxesInRange() On Error Resume Next Dim cell As Range Dim CurrentRange As Range Set CurrentRange = Selection CurrentRange.Numbe...
