VARIAVEL-REMOVER DUPLICADOS

EXPERT 16/05/2013 10:29:54
#423581

Olá,

Dei uma brincada em um código, saiu isso:


Dim dados As String
Dim aux As String
Dim resultado As String
Dim i As Integer

dados = [Ô]0031,0031,0432,0031,0046,0046,0089,0089,0089,0015,0031,0031,0031,0046,0046,0432,0089,0089,0089,0015,[Ô] _
+ [Ô]0123,0123,0031,0100,0432[Ô] + [Ô],[Ô] [ô]Adicionei o ponto para não dar erro no InStr

resultado = [Ô][Ô]

Do While True
i = InStr(1, dados, [Ô],[Ô])

aux = Mid(dados, 1, i - 1)
dados = Mid(dados, i + 1)

If InStr(1, resultado, aux) = 0 Then
resultado = resultado + aux + [Ô], [Ô]
End If

[ô]4 = quantidade de caracteres a serem usados para cada dado
If Len(dados) <= 4 Then Exit Do
Loop

resultado = Left(resultado, Len(resultado) - 2)

MsgBox resultado

Espero ter ajudado. Fique com Deus.

EPISCOPAL 16/05/2013 12:46:13
#423589

tenta este aki . se a lista for grande ele e mais rapido que os outros ....

KERPLUNK 16/05/2013 13:51:06
#423591

Já tentou a solução que passei com o split?