[已解决]如何在VBA窗体中，将工作中不连续的单元格内容放进下拉列表中

蝶·舞

如图所示，我想在下拉列表中添加工作中的省份名称（北京，上海，江苏），应该如何用代码进行实现
不连续单元格下拉.zip (6.48 KB, 下载次数: 8)

2014-4-28 13:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2014-4-28 14:13

请看附件。

跳转到最佳答案楼层

grf1973

1. Private Sub UserForm_Initialize()
   
2.     Dim arr, i
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     For i = 1 To UBound(arr)
   
5.         If Len(arr(i, 1)) = 2 Then Me.ComboBox1.AddItem arr(i, 2)
   
6.     Next
   
7. End Sub

复制代码

通过判断A列长度得到结果。

grf1973

请看附件。