如何在Excel中快速插入多个复选框？

我们如何在Excel中快速插入多个复选框呢？请按照以下巧妙的方法操作：

使用填充柄插入多个复选框

使用VBA代码插入多个复选框

通过Kutools for Excel一键插入和删除多个复选框

使用填充柄插入多个复选框

在Excel中，填充柄是一个功能强大的工具，可以完成许多任务。它也可以用来填充复选框。首先，您必须插入一个复选框。具体操作如下：

1. 单击菜单栏中的“开发工具”，然后单击“插入”，并选择“表单控件”下的复选框图标。参见截图：

2. 单击复选框图标后，鼠标指针会变成加号，点击您要添加复选框的位置。

3. 选择复选框并将其移动到单元格中，然后删除复选框的名称。

4. 然后选择复选框所在的单元格，并拖动填充柄覆盖您要填充的区域。参见截图：

使用VBA代码插入多个复选框

如果您觉得第一种方法有些麻烦，以下VBA代码可以帮助您轻松快速地插入多个复选框。

1. 单击“开发工具”>“Visual Basic”，将弹出一个新的Microsoft Visual Basic for Applications窗口，点击“插入”>“模块”，并将以下代码输入到模块中：

Sub InsertCheckBoxes()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

2然后单击 按钮运行代码。随后会弹出一个提示框，提醒您选择要插入复选框的单元格区域。参见截图：

3. 然后单击“确定”，复选框就会整齐美观地插入到所选区域中。参见截图：

使用Kutools for Excel插入多个复选框

在这里，我可以向您介绍一种简单方便的方法来插入多个复选框——Kutools for Excel，通过其 批量插入复选框功能，您可以将复选框插入空白单元格或包含数据的单元格中。

安装 Kutools for Excel后，请按照以下步骤操作：

1. 选择要插入复选框的单元格区域。

2. 单击“Kutools”>“插入 ”>“批量插入复选框”，参见截图：

3. 随后，您选择的单元格将被复选框填满，如下图所示：

将复选框插入空白单元格	将复选框插入有数据的单元格

相关文章：

如何在Excel中快速删除多个复选框？