Excel数据验证中的空白值下拉列表

Question

我不知道从单元格A1到A65555将出现多少个值。我有B1设置为基于A列的数据验证，如下所示 A1：A65555

值在A列中最多显示10行。 （从A1到A10）

但是当我单击B1时，它将显示空值以及A1至A10。我希望A列的所有非空值都列在B1中。

注意：我在数据验证设置中勾选了“忽略空白单元格”选项。或让我知道如何通过VBA设置数据验证？

Answer 1

假设您在A列中没有空格，而在列底部仅存在一些空白行（因为数据将始终为A1：AN，其中1

公式=>定义名称

输入一些名称（如ValidationList）

将其用作公式=OFFSET(INDIRECT("Sheet1!$A$1"),0,0,COUNTA(Sheet1!$A:$A),1)

然后将数据验证列表定义为您输入的名称（并再次检查忽略空格，以使您在未选择任何内容时不会出现错误）

Answer 2

我写了一些代码，通过vba以编程方式插入数据验证，并忽略了空格，因此列表将更易于滚动。

在Sheets（“ Whatsup_msg”）列J中的验证，来自Source Sheets（“ Phones_Emails”）列A。

Sub ValidateNonBlanks()
Dim lastRowCombo As Long
Dim lastRowSource As Long
Dim rangeSource As Range
Dim rangeCombo  As Range

lastRowCombo = 150
lastRowSource = Sheets("Phones_Emails").Cells(Rows.Count, "A").End(xlUp).row

Set rangeCombo = Sheets("Whatsup_msg").Range("J4:J" & lastRowCombo)
Set rangeSource = Sheets("Phones_Emails").Range("A4:A" & lastRowSource)

With rangeCombo.Validation
    .Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Phones_Emails!$A$2:$A$" & lastRowSource
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

End Sub