利用VBA代码解决Excel下拉菜单跳过空单元格的问题

一、问题描述

利用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

''''''''''</