Remoção de dados duplicados de um array usando o Visual Basic for Applications ( VBA ) no Excel pode ser confuso se você não for um programador experiente VBA. Classificando e remoção de dados duplicados de um array é um processo iterativo que requer um algoritmo bastante sofisticado, mas pode ser facilmente realizado , seguindo alguns passos simples. Em VBA, você pode usar um " For ... Loop" eo objeto "Coleção " para manter o controle de itens exclusivos na matriz e que o processo é bastante rápido , dependendo do tamanho de sua matriz. Instruções
1

Clique na guia "Desenvolvedor" e clique em " Visual Basic" para abrir a janela do VB Editor. Insira um novo módulo de código , clicando no menu "Inserir" e clicar em " Module ".
2

Crie um novo procedimento sub e definir três variáveis ​​que você vai usar para remover duplicatas em sua matriz.

Sub RemoveDuplicates particulares ()

Dim strArray (5) As String Dim

Mycol Como Coleção

Dim idx As Long

Definir Mycol = Nova coleção
3

Adicione dados duplicados para sua matriz .

strArray (0) = "bbb"

strArray (1) = "bbb"

strArray (2) = "ccc"

strArray (3) = "ddd"

strArray (4) = "ddd"
4

Copie e cole o seguinte código para criar um " For ... loop" e loop através de cada elemento da matriz de remover todas as duplicatas :

On Error Resume Next

Para idx = LBound ( strArray ) Para UBound ( strArray )

myCol.Add 0, CStr ( strArray ( idx ) )

Se Err Então

strArray ( idx ) = vazio < br >

dups = dups + 1

Err.Clear

dups ElseIf Então

strArray ( idx - dups ) = strArray ( idx )

strArray ( idx ) = vazio

End If

Próxima
5

Imprima cada elemento na matriz para a janela imediata para mostrar que as duplicatas foram removidos.

Para idx = LBound ( strArray ) Para UBound ( strArray )

Debug.Print strArray ( idx )

Próxima
6 Tipo

" Fim Sub " para terminar o procedimento. Clique no menu "Executar" e clique no botão play para executar o programa.