为列表框加入一列内容,加入时筛选不重复的项.

在此以A列为目标列,在表中新建一个COMBOBOX(我这里是COMBOBOX1),再在A列中1-12行输入内容(带有重复的),然后新建一个模块或利用修改宏输入如下代码.

CROWS = Sheets(1).UsedRange.Count

For i = 1 To CROWS
    R = WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)), _
        Cells(i, 1))
    If R < 2 Then
       Sheets(1).ComboBox1.AddItem (Cells(i, 1))
    End If
Next

试试吧,实际用起来会有许多改动,不过参照原理,很容易修改. *^-^*

由于原来的代码有缺陷,所以作了修改,又由于不能上传实例,所以加上适当的注解,希望大家能看明白! *^-^*
本人觉得这个实例的学习性还算高的.有不足处请不吝赐教!~

CROWS = ActiveSheet.UsedRange.Rows.Count '统计表格内用户使用的行数
ActiveSheet.ComboBox1.Clear '把当前表内的列表框原有的内容清除

For i = 1 To CROWS '从第一行开始到用户使的的行数结束为止
R = WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)), _
Cells(i, 1)) '统计当前值在作用范围内出现的次数
If R < 2 Then '当统计到当前值是唯一时才加入到列表框
If Cells(i,1).Value <> "" Then '跳过空值
ActiveSheet.ComboBox1.AddItem (Cells(i, 1)) '把当前值写入列表框
End If
End If
Next

不感兴趣

开通SVIP免广告

�

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

2回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六