Eliminación de datos duplicados de una matriz mediante Visual Basic para Aplicaciones ( VBA) en Excel puede ser confuso si usted no es un programador de VBA con experiencia. Clasificación y eliminación de datos duplicados de una matriz es un proceso que requiere un algoritmo iterativo bastante sofisticado , pero se puede lograr fácilmente siguiendo unos sencillos pasos. En VBA , puede utilizar un " For ... Loop " y el objeto " Collection" para realizar un seguimiento de los elementos singulares de la matriz y el proceso es bastante rápido en función del tamaño de su matriz. Instrucciones
1

clic en la pestaña " desarrolladores" y haga clic en "Visual Basic " para abrir la ventana Editor VB . Inserte un nuevo módulo de código haciendo clic en el menú " Insertar" y hacer clic en " módulos".
2

Crear un nuevo procedimiento sub y definir tres variables que va a utilizar para eliminar duplicados en la matriz .

RemoveDuplicates Private Sub ( ) guía

Dim strArray ( 5 ) As String

Mycol As Collection Hotel

idx Dim As Long

Set Mycol = Nueva colección
3

Añadir duplicar los datos a la matriz .

strArray ( 0 ) = " bbb "

strArray ( 1 ) = " bbb "

strArray ( 2 ) = " ccc "

strArray ( 3 ) = " ddd"

strArray ( 4 ) = " ddd"
4 < p> Copia y pega el siguiente código para crear un " For ... Loop " y recorrer cada elemento de la matriz para eliminar los duplicados :

On Error Resume Next

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

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

Si Err Entonces

strArray ( idx ) = Empty < br >

dups = dups + 1

Err.Clear

ElseIf DUP Entonces

strArray ( idx - dups ) = strArray ( idx )

strArray ( idx ) = Empty

End If

Siguiente
5

imprimir cada elemento de la matriz en la ventana Inmediato para mostrar que los duplicados se han eliminado .

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

Debug.Print strArray ( idx )

Siguiente
6 Tipo

"End Sub " para poner fin a su procedimiento . Haga clic en el menú " Ejecutar" y haga clic en el botón de reproducción para ejecutar el programa.