vb.net去重 vba 去重

vb.net去掉重复数组怎么做？

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

vb.net 数组中的重复项

vb.net去重我还在床上，就只给vb.net去重你思路吧

我是自己写了个函数，将数组传入并返回一个新数组列表

子函数中，先将数组排序sort函数，然后有两个循环，外循环从0到Length，变量i，内循环从i到Length，判断第i个数是否与包括自身vb.net去重的后续数相同，相同就有变量加1，内循环结束条件是找到第一个不同vb.net去重的数，并将外循环i复植为内循环中第一个不同的数的下表。。。

这个是思路，如果不能理解再再追加我给你代码，不过建议自己试试

你看写这个，和你的要求差不多。。。;oldq=1

有程序的~~~你可以参考下~~~

VB.Net去除数组中重复的字符的元素？

比如数组a。里面有5个值，其中有3个是重复的？

如果这样的话，很好办哦。

新建一个数组b，然后遍历要去除的数组a，

从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，

否则就放入数组b，直到循环结束。

select * from 查询结果去重并排序

你第二和第三列是不重复的啊,如果你要去除重复,可以在有重复的列前加distinct

例如,select distinct fldD from table

VB中去除字符串数组中的重复元素，谢谢！

Dim I as Long,J As Long,K As Long,mCount As Long 

mCount=UBound(数组) 

For I=0 to mCount -1 

    For J=I+1 to mCount 

        If 数组(i)=数组(j) Then 

            For K=j to mCount -1 

                数组(k)=数组(K+1) 

            Next k 

            Redim Preserve 数组(mCount-1) 

            mCount=mCount-1 

        End If 

    Next 

Next 

在网吧上，没VB记事本上打vb.net去重的。不知道能不能运行。真是冤枉啊。 

如果不能运行不要怪vb.net去重我。具体思路已经给vb.net去重你了。

如果使用CopyMemory操作指针速度超快。

vb.net 如何与提取Excel中的数据

直接去重放到COMBOBOX里，这个我要看看，好久以前用过，不知道放那里了，有点忘了。

如果做到辅助列，先给这一列去重，再放到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

试试这个，去重的我再找找。

关于vb.net去重和vba 去重的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。