Excel如何批量插入复选框？

1：在第一个单元格插入复选框后拖动复制。 2：如果单元格区域不规则可以用下面代码： PrivateSubAddCheckBoxesInRange() one rrorResumeNext DimcellAsRange DimCurrentRangeAsRange SetCurrentRange=Selection CurrentRange.NumberFormatLocal=";;;" Application.ScreenUpdating=False ForEachcellInCurrentRange ActiveSheet.CheckBoxes.Add(cell.Left,cell.Top,cell.Height,cell.Height).Select WithSelection .Value=xlOff .LinkedCell=cell.Address .Display3DShading=False .Characters.Text="" EndWith Next CurrentRange.Select Application.ScreenUpdating=True Setcell=Nothing EndSub