2024年5月2日发(作者：)

用VBA向列表框(ComboBox或ListBox)中填加数据

向列表框中填加数据的方法很多，下面根据实例介绍3种最常用到的方法：

图1

图2

如图1所示的下拉列表框（组合框），图2为其数据源，图2所有在工作表表名为：

设置表

无论哪种方法我们都首先要知道最后这个数据所在的行数。如图2的第4行。

复制内容到剪贴板

代码:

Dim l As Long '表示行数时，应该习惯设成长整型

l = Sheets("设置表").Range("A65536").End(xlUp).Row

上述代码请参见《用VBA得到EXCEL表格中的行数和列数》

方法一：循环Additem

复制内容到剪贴板

代码:

Sub OkExcel01()

'

Dim l As Long '表示行数时，应该习惯设成长整型

Dim i As Long