VBA Eliminar duplicados - ¿Cómo eliminar valores duplicados en Excel VBA?

Eliminar duplicados en VBA Excel

Los valores duplicados a menudo no son necesarios en Excel, especialmente cuando desea contar con valores únicos. Por lo general, tenemos un conjunto de datos diferente para trabajar y vemos un montón de valores duplicados en él.

Espero que esté familiarizado con la eliminación de duplicados en la hoja de cálculo de Excel, si no no hay nada de qué preocuparse. Te mostraremos un ejemplo sencillo para ti. En VBA también podemos realizar el método de eliminación de duplicados.

Por lo tanto, eliminó todos los valores duplicados del encabezado "Región". Del mismo modo, podemos hacer esta tarea con la ayuda del código VBA.

¿Cómo eliminar valores duplicados en la codificación VBA?

Para eliminar primero los valores duplicados, debemos mencionar el rango al que nos referimos. Luego podemos acceder al método "Eliminar duplicados". Entonces la sintaxis será la siguiente.

(Columna): ¿Qué columna de la selección necesitamos eliminar los duplicados? Necesitamos mencionar el número de columna del rango seleccionado.

(Encabezado): el rango que ha seleccionado tiene encabezados o no. Tenemos tres opciones para trabajar aquí.

  • xlYes: si los datos tienen encabezados, puede seleccionar esto.
  • xlNo: si los datos no tienen encabezados, puede seleccionar esto.
  • xlGuess: esta opción permitirá que Excel adivine los encabezados de los datos.

Entonces, usando estos parámetros, podemos eliminar duplicados con solo hacer clic en un botón sin romper nuestro sudor.

En la siguiente sección, le mostraré algunos de los ejemplos para eliminar duplicados de VBA. Siga los pasos cuidadosamente para escribir el código por su cuenta.

Ejemplos de eliminación de valores duplicados en la codificación VBA

A continuación se muestran los ejemplos de Eliminar duplicados en valores VBA.

VBA Eliminar duplicados - Ejemplo n. ° 1

Considere también los datos a continuación para este ejemplo.

De los datos anteriores, necesitamos eliminar los duplicados de la columna "Región", así que siga los pasos a continuación para escribir el código.

Paso 1: Inicie el subprocedimiento dando un nombre a un código de macro.

Paso 2: mencione el rango de datos utilizando el objeto Rango de VBA .

Código:

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

Paso 3: Después de mencionar el método " RemoveDuplicates " de VBA de acceso al rango .

Código:

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

Paso 4: Primer argumento en qué columna necesitamos eliminar los valores duplicados. En este ejemplo, de la primera columna, necesitamos eliminar los duplicados.

Código:

Sub Remove_Duplicates_Example1 () Rango ("A1: C9"). RemoveDuplicates Columnas: = 1, End Sub

Paso 5: Lo siguiente es si los datos tienen encabezados o no. En este caso, tenemos encabezados, así que seleccione "xlYes".

Código:

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

Ejecute este código. VBA eliminará los duplicados de la región seleccionada.

Esta es una forma explícita de referirse al rango de celdas. Si desea seleccionar el rango por nuestra cuenta y luego eliminar los duplicados, entonces necesitamos usar la variable para trabajar. En el siguiente ejemplo, le mostraré cómo usar variables en VBA.

VBA Eliminar duplicados - Ejemplo n. ° 2

En el ejemplo anterior, hemos proporcionado específicamente el rango de celdas. Ahora veremos cómo trabajar con la selección de nuestras propias celdas.

Por ejemplo, tengo algunos conjuntos de datos, como se muestra en la siguiente imagen.

Cada vez que no puedo especificar el rango de celdas explícitamente, asignaremos la selección como rango.

Paso 1: Declare la variable como Rango .

Código:

Sub Remove_Duplicates_Example2 () Dim Rng As Range End Sub

Paso 2: el rango es un objeto. Vamos a establecer el rango como nuestra selección.

Código:

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.

Tenemos valores duplicados en la primera y la cuarta columna. Así que eliminaremos de estas columnas. Utilice el siguiente código para VBA para eliminar duplicados.

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

Puede descargar este VBA Eliminar duplicados de Excel aquí. VBA Eliminar plantilla de Excel duplicada

Articulos interesantes...