请问Excel怎么用VBA批量插入复选框？而且需要在相邻单元格内显示TRUE或FALSE。

Question

在Excel一竖行里批量加复选框，每一个复选框都关联右边的单元格，勾选以后右边的单元格会显示TRUE。

Answer 1

选中要添加的区域后运行下面的代码

Sub test()
Dim x As Shape
With Selection
For r = 1 To .Rows.Count
With .Cells(r, 1)
ad = .Offset(0, 1).Address
With Sheet1.Shapes.AddFormControl(xlCheckBox, .Left, .Top, .Width, .Height).OLEFormat.Object
.LinkedCell = ad
End With
End With
Next
End With
End Sub