Sub 添加复选框() Application.ScreenUpdating = False Dim rng1 As Range Dim rng2 As Range Application.ScreenUpdating = True Set rng2 = Application.InputBox("请选择要添加控件的单元格区域:", Type:=8) Application.ScreenUpdating = False rng2.NumberFormatLocal = ";;;" For Each rng1 In rng2 ActiveSheet.CheckBoxes.Add(rng1.Left, rng1.Top, rng1.Width, rng1.Height).Select With Selection .Value = xlOff .LinkedCell = rng1.Addres