扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
直接去重放到COMBOBOX里，这个我要看看，好久以前用过，不知道放那里了，有点忘了。
创新互联公司主营东山网站建设的网络公司,主营网站建设方案,app开发定制,东山h5重庆小程序开发搭建,东山网站营销推广欢迎东山等地区企业咨询
如果做到辅助列，先给这一列去重，再放到COMBOBOX里。
Dim r As Integer
Dim arr As Variant
r = Sheets("控件二").Cells(65536, 1).End(xlUp).Row
arr = Sheets("控件二").Range("A1:H" r)
ComboBox1.List = arr
试试这个，去重的我再找找。
比如数组a。里面有5个值，其中有3个是重复的？
如果这样的话，很好办哦。
新建一个数组b，然后遍历要去除的数组a，
从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，
否则就放入数组b，直到循环结束。
你第二和第三列是不重复的啊,如果你要去除重复,可以在有重复的列前加distinct
例如,select distinct fldD from table
Dim array1() As String
Dim array2() As Boolean
Dim i As Integer
Dim j As Integer
Dim str1 As String = "a,c,c,c,a,b,c,d,f,eee,eee"
array1 = Split(str1, ",")
str1 = ""
ReDim array2(UBound(array1))
For i = 0 To UBound(array1)
array2(i) = False
Next
For i = 0 To UBound(array1) - 1
If array2(i) = False Then
For j = i + 1 To UBound(array1)
If array1(i) = array1(j) And array2(j) = False Then
array2(j) = True
End If
Next j
End If
Next i
For i = 0 To UBound(array1)
If array2(i) = False Then
str1 = str1 array1(i) ","
End If
Next i
If str1 "" Then
str1 = Strings.Left(str1, Len(str1) - 1)
End If
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网