VB用DO循环筛选重复

你可以使用嵌套的DO循环来筛选重复项，具体实现步骤如下：

1. 定义两个变量i和j，用于循环比较。

2. 使用外层的DO循环遍历整个数据集，将第i个元素与后面的所有元素进行比较。

3. 使用内层的DO循环从第i+1个元素开始，逐一与第i个元素进行比较，判断是否存在重复。

4. 如果存在重复，则将重复的元素删除或标记，并调整数据集的长度。

下面是一个示例代码：

Dim i As Integer, j As Integer, k As Integer
Dim arrData() As Variant

'假设数组arrData已经被初始化并赋值

For i = 1 To UBound(arrData)
    For j = i + 1 To UBound(arrData)
        If arrData(i) = arrData(j) Then
            '存在重复，删除j位置的元素
            For k = j To UBound(arrData) - 1
                arrData(k) = arrData(k + 1)
            Next k
            '调整数组长度
            ReDim Preserve arrData(UBound(arrData) - 1)
            '因为删除了一个元素，所以需要将j减1
            j = j - 1
        End If
    Next j
Next i

上述代码中，我们使用了三重循环，其中最外层的循环遍历整个数组，内层的循环用于比较当前元素与后面的元素是否存在重复，最内层的循环用于将重复的元素删除并调整数组长度。