VBA Remove Duplicates - Como remover valores duplicados no Excel VBA?

RemoveDuplicates no VBA Excel

Valores duplicados geralmente não são necessários no Excel, especialmente quando você deseja que os valores únicos contem Normalmente temos um conjunto diferente de dados com o qual trabalhar e vemos vários valores duplicados nele.

Espero que você esteja familiarizado com a remoção de duplicatas em planilhas do Excel, senão nada com que se preocupar. Mostraremos um exemplo simples para você. No VBA, também podemos executar o método de remoção de duplicatas.

Portanto, ele removeu todos os valores duplicados do título “Região”. Da mesma forma, podemos fazer essa tarefa com a ajuda do código VBA.

Como remover valores duplicados na codificação VBA?

Para remover valores duplicados primeiro, precisamos mencionar o intervalo ao qual estamos nos referindo. Então podemos acessar o método “Remover Duplicatas”. Portanto, a sintaxe será a seguinte.

(Coluna): Qual coluna da seleção precisamos remover duplicatas? Precisamos mencionar o número da coluna do intervalo selecionado.

(Cabeçalho): O intervalo que você selecionou tem cabeçalhos ou não. Temos três opções para trabalhar aqui.

  • xl Sim: se os dados tiverem cabeçalhos, você poderá selecionar isso.
  • xlNão: Se os dados não tiverem cabeçalhos, você pode selecionar isso.
  • xlGuess: Esta opção permitirá que o Excel adivinhe os cabeçalhos dos dados.

Portanto, usando esses parâmetros, podemos remover duplicatas com apenas um clique de um botão, sem quebrar nosso suor.

Na seção a seguir, mostrarei alguns dos exemplos para remover duplicatas do VBA. Siga as etapas com cuidado para escrever o código por conta própria.

Exemplos de remoção de valores duplicados na codificação VBA

Abaixo estão os exemplos de Remover Duplicado em Valores VBA.

VBA Remover duplicatas - Exemplo # 1

Considere os dados abaixo para este exemplo também.

A partir dos dados acima, precisamos remover duplicatas da coluna “Região”, então siga as etapas abaixo para escrever o código.

Etapa 1: inicie o subprocedimento dando um nome a um código de macro.

Etapa 2: Mencione o intervalo de dados usando o objeto VBA Range .

Código:

Sub Remove_Duplicates_Example1 () Intervalo ("A1: C9"). End Sub

Etapa 3: Depois de mencionar o método “ RemoveDuplicates ” do VBA de acesso ao intervalo .

Código:

Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates End Sub

Etapa 4: Primeiro argumento em que coluna precisamos remover os valores duplicados. Neste exemplo, da primeira coluna, precisamos remover as duplicatas.

Código:

Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates Columns: = 1, End Sub

Etapa 5: o próximo passo é saber se os dados têm cabeçalhos ou não. Neste caso, temos cabeçalhos, então selecione “xlSim”.

Código:

Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates Columns: = 1, Header: = xlYes End Sub

Execute este código. O VBA removerá duplicatas da região selecionada.

This is an explicit way of referring to the range of cells. If you wish to select the range on our own and then remove duplicates, then we need to use the variable to work with. In the below example, I will show you how to use variables in VBA.

VBA Remove duplicates - Example #2

In the above example, we have specifically supplied the range of cells. Now we will see how to work with the selection of our own cells.

For example, I have a few sets of data, as shown in the below image.

Each time I cannot specify the range of cells explicitly, so we will assign the selection as the range.

Step 1: Declare the variable as Range.

Code:

Sub Remove_Duplicates_Example2() Dim Rng As Range End Sub

Step 2: Range is an object. We will set the range as our selection.

Code:

Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection End Sub

Step 3: Now, instead of a range of cells, we can use the variable “rng.”

Code:

Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub

Before we run the code, we need to select the range of cells first. Then we can remove duplicates from the selected range of cells.

VBA Remove Duplicates from Multiple Columns - Example #3

We can also use VBA to remove duplicate values from excel columns as well. In order to remove multiple columns, we need to use Array and mention the column numbers.

For example, look at the example data image.

Duplicamos os valores na primeira e na quarta colunas. Portanto, vamos remover essas colunas. Use o código abaixo para VBA para remover duplicatas.

Código:

Sub Remove_Duplicates_Example3 () Dim Rng As Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Columns: = Array (1, 4), Header: = xlYes End Sub

Você pode baixar este VBA Remove Duplicates Excel aqui. VBA Remove Duplicates Excel Template

Artigos interessantes...