用Vba写一个多项选择列

我可以回答这个问题。首先，您需要在 Excel 中打开 Visual Basic 编辑器。然后，您可以创建一个新的模块，并在其中编写 VBA 代码来创建多项选择列。以下是一个示例代码：

Sub CreateMultiSelectColumn()
Dim cell As Range
Dim lastRow As Long

lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For Each cell In Range("B2:B" & lastRow)
With cell.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Yes,No"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next cell
End Sub

这段代码将在 B2:B 最后一行中创建一个多项选择列，其中选项为“是”和“否”。您可以根据需要更改选项。