利用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 Longrow_begin = 13  '下拉备选菜单选择项开始和接受的行数，根据需要自行修改
row_end = 73For i = row_begin To row_ends = Sheets(1).Range("A" & i)     '选择A列的内容作为下拉备选项，根据需要自行修改    If s <> "" Then arr = arr & "," & s
Next i''''''''''''''''''''第一个下拉框'''''''''''''''''''''''''''
Set Rng = Range("H13")   '下拉框是放在H13单元，可以根据需要自行修改
With Rng.Validation
.Delete
.Add Type:=xlValidateList, Formula1:=arr
End With
Set Rng = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''第二个下拉框'''''''''''''''''''''''''''
Set Rng = Sheets(2).Range("I13")      '如需需要选择sheet，通过括号中修改
With Rng.Validation
.Delete
.Add Type:=xlValidateList, Formula1:=arr
End With
Set Rng = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''后面如需增加，自行负责''''''''''End Sub

三、VBA代码使用方法快速入门

Step1：

Step2：
右击Sheet1，点击“查看代码”

Step3：
选择环境

Step4
将代码复制粘贴，保存即可

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

excel不能插入activex控件_办公小技巧：制作更炫酷的Excel下拉菜单
在Excel中制作下拉菜单,大都是利用数据有效性,再有就是表单控件中的组合框.数据有效性或表单控件组合框制作下拉菜单,快捷.便利.实用.功能很全面,但也有力所不及的地方,比如设置下拉菜单的字体.颜色. ...
excel下拉菜单vba_Excel 2007的经典菜单
excel下拉菜单vba I noticed that Bits du Jour was offering a 70% discount on "Excel 2007 Ribbon to o ...
excel下拉菜单自动匹配_自动将新项目添加到Excel数据验证下拉菜单
excel下拉菜单自动匹配 There's a sample Excel workbook on my Contextures website that uses a bit of Excel VBA ...
excel下拉菜单vba_一站式提供不同的Excel下拉菜单
excel下拉菜单vba To help users enter data in a spreadsheet, you can create drop down lists with Excel's ...
excel下拉菜单vba_在Excel下拉菜单中显示警告
excel下拉菜单vba With Excel's data validation, you can show a drop down list of items in a cell. You can ...
excel下拉菜单vba_在Excel下拉菜单中删除使用过的项目
excel下拉菜单vba There is a new sample file on my Contextures web site, which lets you pick players for ...
视频教程-Excel下拉菜单怎么做 Excel排序高手技巧视频教程-Office/WPS
Excel下拉菜单怎么做 Excel排序高手技巧视频教程本人张光欢,在2018年4月1日注册公司邢台水滴计算机科技有限公司,从事于计算机软硬件开发,信息技术咨询服务张光欢 ¥39.00 立即订阅 ...
html 联想下拉菜单,excel下拉菜单联想在Excel中制作具有联想能力的下拉列表的方法...
excel下拉菜单联想在Excel中制作具有联想能力的下拉列表的方法,看到标题你是不是很兴奋,这不就是你想学习的知识吗?当你掌握excel下拉菜单联想这个知识的时候你一定很兴奋,一定不会后悔看了ex ...
poi生成excel下拉菜单
在web开发中常用到生成excel模板,在用excel poi生成excel模板时,常用到生成excel下拉菜单.下面是生成excel下拉菜单的代码: package poiexcel;import ...

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

一、问题描述

二、解决方法

三、VBA代码使用方法快速入门

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

最新文章

热门文章