使用VBA对整个列进行下拉验证

Question

我是VBA的新手，正在尝试对整个列中的数据进行数据验证。 使用以下代码执行此操作。

ActiveSheet.Range("O:O").Select
With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=data_validation!N2:N340"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

使用此代码，我能够为所选列中的每个单元格下拉列表，但是下拉列表中的值将在每个对应的单元格中逐一删除。 例如，如果在列表中，我的值是[1,2,3,4,5]。 在第一个单元格下拉列表中，我可以选择[1,2,3,4,5]。 在第二个单元格下拉列表中，我可以选择[2,3,4,5]，依此类推。 请帮忙。

Answer 1

您已经输入了验证公式作为相对参考，因此对于每个连续的单元格，验证范围都会偏移1行。因此，请输入公式作为绝对参考

=data_validation!$N$2:$N$340