0264-Criando um vetor sem duplicatas

Recentemente estava desenvolvendo um projeto em que precisava criar um vetor com os elementos exclusivos de uma lista.

Encontrei diversas referências na internet, mas achei que eram complexas demais e resolvi desenvolver uma abordagem mais simples.

O resultado é o código a seguir.

Espero que seja útil a vocês também

Sub CreateExclusiveArray()

'Declarar variáveis
Dim strNamesArray
Dim strExclusiveValues
Dim strElement
Dim strExclusiveValuesArray

'Atribuir um vetor
strNamesArray = Array("SP", "SP", "RJ", "RJ", "RJ", "MG", "MG", "ES", "ES")

'Definir um string vazio
strExclusiveValues = vbNullString

'Loop para percorrer os elementos do vetor
For Each strElement In strNamesArray

'Testar se o elemento do vetor está presente em strExclusiveValues e
'adicioná-lo caso não esteja
strExclusiveValues = IIf(InStr(1, strExclusiveValues, strElement) = 0, _
strExclusiveValues & vbTab & strElement, strExclusiveValues)

Next

'Excluir de strExclusiveValues o primeiro caractere (vbTab)
strExclusiveValues = Right(strExclusiveValues, Len(strExclusiveValues) - 1)

'Criar um vetor com os elementos únicos
strExclusiveValuesArray = Split(strExclusiveValues, vbTab)

End Sub
Anúncios

In Excel We Trust

Marcado com: ,
Publicado em Excel, Nível: Avançado

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: