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

我们如何快速在Excel中插入多个复选框？ 请在Excel中遵循以下棘手的方法：

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

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

使用 Kutools for Excel 一键插入和删除多个复选框

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

在Excel中，Fill Handle是执行许多事情的强大功能。 它也可以填充复选框。 首先，您必须插入一个复选框。 进行如下操作：

1。 点击 开发商 在菜单栏中，然后单击 插页，然后选择下面的复选框图像 表格控制。 看截图：

2。 单击复选框图像，您将看到加号指针，单击要添加复选框的位置。

3。 选择复选框并将其移至单元格，然后删除该复选框的名称。

4。 然后选择复选框所在的单元格。然后将填充手柄拖到要填充的单元格范围内。 看截图：

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

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

1。 点击 开发商 > Visual Basic中，一个新的 适用于应用程序的Microsoft Visual Basic 将显示一个窗口，单击 插页 > 模块，然后将以下代码输入到 模块:

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。 然后点击 OK，这些复选框已被整齐精美地插入了该范围。 看截图：

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

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

安装后 Kutools for Excel，请执行以下步骤：

1。 选择要插入复选框的单元格范围。

2。 点击 库工具 > 插页 > 批量插入复选框，请参见屏幕截图：

3。 然后，您选择的单元格已被复选框填充，如以下屏幕截图所示：

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

相关文章：

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