一、问题描述
利用Excel制作下拉菜单,当某一列有空白单元格时,如下图所示
在下拉菜单中,也会存在空白单元格
常规制作下拉菜单的方法没有办法避免该问题,所以需要利用VBA解决这个问题
二、解决方法
解决该问题的VBA代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr, s
Dim Rng As Range
Dim row_begin As Long
Dim row_end As Long
row_begin = 13 '下拉备选菜单选择项开始和接受的行数,根据需要自行修改
row_end = 73
For i = row_begin To row_end
s = Sheets(1).Range("A" & i) '选择A列的内容作为下拉备选项,根据需要自行修改
If s <> "" Then arr = arr & "," & s
Next i
''''''''''</