Dim a={1,2,3,1,1}
For i = 0 To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) = a(j) Then
TracePrint "a(" & i & ") 和 a(" & j & ") 重复。"
Exit for
End If
Next
Next
按键精灵-找出数组中重复的成员
猜你喜欢
转载自blog.csdn.net/biao197/article/details/101861812
今日推荐
周排行