Print the duplicate values in an array
x=array(5,8,6,2,4,7,9,5,6,8,0)
For i=0 to UBound(x)
If instr(b,x(i))=0 Then
b=b&x(i)
ElseIf instr(b,x(i))>0 then
msgbox x(i)
End If
Next
x=array(5,8,6,2,4,7,9,5,6,8,0)
For i=0 to UBound(x)
If instr(b,x(i))=0 Then
b=b&x(i)
ElseIf instr(b,x(i))>0 then
msgbox x(i)
End If
Next
No comments:
Post a Comment