实现原理：

复选框可以通过手工逐个插入，并关联相应单元格，但若要批量插入好几百，再逐一插入，这样的工作效率会非常低。

其实excel软件提供了宏功能，你可以编写一段宏然后执行，即可批量执行插入复选框的动作。

操作步骤：

1、插入模块，写入以下代码：开发工具选项卡---Visual Basic---插入模块

Sub 添加复选框()

On Error Resume Next

'注释：关闭屏幕刷新，加快运行速度。

Application.ScreenUpdating = False

Dim 单元格 As Range

Dim CurrentRange As Range

Set CurrentRange = Selection

'注释：设置单元格自定义格式 ";;;"，为不显示true或false。

CurrentRange.NumberFormatLocal = ";;;"

'注释：循环每个单元格，添加复选框

For Each 单元格 In CurrentRange

ActiveSheet.CheckBoxes.Add(单元格.Left, 单元格.Top, 单元格.Height, 单元格.Height).Select

With Selection

.Value = xlOff

.LinkedCell = 单元格.Address

.Display3DShading = False

.Characters.Text = ""

End With

CurrentRange.Select

Set 单元格 = Nothing

Application.ScreenUpdating = True

End Sub

插入模块，写入代码

2、选中需插入复选框的单元格区域，执行宏--添加复选框即可，操作步骤见图1。

结语：这个技巧很简单，但却可以大幅提高我们的工作效率。赶快动手试试看吧！如果你觉得本文对你有帮助或启发，请点赞并分享给更多小伙伴吧！ 返回搜狐，查看更多