最佳答案：1：在第一个单元格插入复选框后拖动复制。2：如果单元格区域不规则可以用下面代码：Private Sub AddCheckBoxesInRange()On Error Resume NextDim ce
1：在第一个单元格插入复选框后拖动复制。
2：如果单元格区域不规则可以用下面代码：
Private Sub AddCheckBoxesInRange()
On Error Resume Next
Dim cell As Range
Dim CurrentRange As Range
Set CurrentRange = Selection
CurrentRange.NumberFormatLocal = ";;;"
Application.ScreenUpdating = False
For Each cell In CurrentRange
ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Height, cell.Height).Select
With Selection
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Characters.Text = ""
End With
Next
CurrentRange.Select
Application.ScreenUpdating = True
Set cell = Nothing
End Sub
