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

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 )

Foto do Google+

Você está comentando utilizando sua conta Google+. 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 )

w

Conectando a %s

Visitas dos usuários
  • 2,850,935
Drive Virtual

Acesse o link para ter acesso aos arquivos para download.

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.693 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: