[已解决]下拉框空白不显示

去11111

各位大神，我找了个资料是使下拉框数据为可添加的，但是有个bg就是会有空白。请大神完善一下，把空白删除
这是代码
Option Explicit
Sub DropList()

Dim copyrows As Integer
Dim tWb As Workbook
  copyrows = 21

  Set tWb = ThisWorkbook
  
  tWb.Names.Add Name:="VariableList", RefersTo:="=Filter!$A$1:$A$" & copyrows
    ActiveSheet.DropDowns.Add(216.75, 57, 270, 22.5).Select
      With Selection
        .ListFillRange = tWb.Sheets("Filter").Range("VariableList").Address
        
        .LinkedCell = "$n$1"
        .DropDownLines = 15
        .Display3DShading = False
      End With
End Sub
谢谢

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-12-14 20:07

去11111 发表于 2016-12-14 14:43
不行还是有空白

已改，自己看下是否可以

跳转到最佳答案楼层

苏子龙

Sub DropList()
'     Dim myRow As Integer
'  Dim myHeight As Integer
'  myRow = 5
Dim copyrows As Integer
Dim tWb As Workbook
'  copyrows = 21 'data source rows'词句相当于给行数为21
  
'  myHeight = copyRows + 3 - myRow '3 is the difference of B5 to first data row
  Set tWb = ThisWorkbook
    copyrows = tWb.Sheets("Filter").Range("a1").End(xlDown).Row
  
  tWb.Names.Add Name:="VariableList", RefersTo:="=Filter!$A$1:$A$" & copyrows
    ActiveSheet.DropDowns.Add(216.75, 57, 270, 22.5).Select
      With Selection
        .ListFillRange = tWb.Sheets("Filter").Range("VariableList").Address
        
        .LinkedCell = "$n$1"
        .DropDownLines = 15
        .Display3DShading = False
      End With
End Sub

去11111

苏子龙 发表于 2016-12-14 07:11
Sub DropList()
'     Dim myRow As Integer
'  Dim myHeight As Integer

不行还是有空白

苏子龙

去11111 发表于 2016-12-14 14:43
不行还是有空白

已改，自己看下是否可以

去11111

苏子龙 发表于 2016-12-14 20:07
已改，自己看下是否可以

可以可以，我有个地方没改，太感谢了！

去11111

苏子龙 发表于 2016-12-14 20:07
已改，自己看下是否可以

等一下大神，不行啊，是没有空白了但不能往后添加，我想要的是可以添加数据，下拉框就会出现数据也不显示空白