html如何增加下拉菜单长度,[求助]请问如何增加数据有效性中下拉菜单的长度

非常感谢，宏的用处真是太大了。但我还未看懂您是如何把下拉菜单控制在第一列的。比如说我要把下拉菜单放在B5:B9。请问如何修改：

Option Explicit

Private Sub ComboBox1_Change()

ActiveCell.Value = ComboBox1.Value

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Me.ComboBox1

If Target.Column = 1 And Target.Count = 1 Then

.Visible = True

.ListFillRange = "d2:d11"

.ListRows = 10

.Width = Target.Width + 15

.Left = Target.Left

.Top = Target.Top

.Height = Target.Height

Else

.Visible = False

End If

End With

End Sub