用vba如何将某列不为空的值显示到组合框中？

huangyz_xy

见附件，我的想法是点击USERFORM1中的组合框后，列表值显示为sheet2中的A列除开标题(A1)的项目，如果为空就省略显示，只能用代码如何可以做到？
ffice_pay.Combo_name.List = Split("A,B,C", ","),这种方法只能是固定的值；
office_pay.Combo_com.RowSource = "项目管理!A2:A100"，这种方法缺点是不灵活，如果超出了100行，就需改代码，如果内容少于100行，组合框中就有空值显示
我的想法是a：a无限制且无空值。
多谢各位大侠了!

huangyz_xy

在坛子里头找到了一段好代码，不过有点问题：
    Set ws = Worksheets("项目管理")
    l = ws.Range("C65536").End(xlUp).Row
    Me.ComboBox_com.List = ws.Range("C2:C" & l).Value
用msgbox能成功输出l的值，但是不能执行最后一步，显示为“excel 运行错误381,无法设置List属性。属性阵列索引无效”
请问可能是哪些方面的问题导致的？