在此以A列为目标列,在表中新建一个COMBOBOX(我这里是COMBOBOX1),再在A列中1-12行输入内容(带有重复的),然后新建一个模块或利用修改宏输入如下代码.CROWS = Sheets(1).UsedRange.CountFor 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 IfNext试试吧,实际用起来会有许多改动,不过参照原理,很容易修改. *^-^*

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

顶