¿Como quitar duplicados de una columna en un Array Bidireccional VBA (Excel)?
Tengo un array de 8 columnas importado de una tabla.
Este Array llamado MiMatriz... Esta ordenado por la primera columna y de lo que se trata es quitar los duplicados de la primera columna del Array.
Luego quiero cargar cargar en un ListBox de 8 columnas aquellos valores unicos (columna1) y el dato correspondiente a la columna2.
2 Respuestas
Respuesta de Dante Amor
2
Suponiendo que las 8 columnas están de la columna A a la H, empiezan en la fila 1 y hasta la última fila con datos.
Utilizando un dictionary:
Private Sub CommandButton1_Click()
Dim dic As Object
Dim a As Variant
Dim i As Long
a = Range("A1:H" & Range("A" & Rows.Count).End(3).Row).Value
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a, 1)
If Not dic.exists(a(i, 1)) Then dic(a(i, 1)) = a(i, 2)
Next
ListBox1.List = Application.Transpose(Array(dic.keys, dic.items))
End Sub[Tienes pendiente valorar estas respuestas. No dejes respuestas sin valorar.
¿Cómo borrar registros duplicados en un array VBA?
¿Crear procedimiento para vaciar los items de un listbox de cualquier formulario?
Respuesta de jrgces
Por probar:
Sub prueba() Dim m(1 To 10, 1 To 10) As Variant, mm As Variant Dim n As Integer, s As String m(1, 1) = 1: m(2, 1) = "a" m(1, 2) = 1: m(2, 2) = "b" m(1, 3) = 1: m(2, 3) = "c" m(1, 4) = 2: m(2, 4) = "d" m(1, 5) = 2: m(2, 5) = "e" m(1, 6) = 2: m(2, 6) = "f" m(1, 7) = 3: m(2, 7) = "g" m(1, 8) = 3: m(2, 8) = "h" m(1, 9) = 3: m(2, 9) = "i" m(1, 10) = 4: m(2, 10) = "j" mm = WorksheetFunction.Frequency(WorksheetFunction.Index(m, 1, 0), WorksheetFunction.Index(m, 1, 0)) For n = LBound(mm, 1) To UBound(mm, 1) - 1 If mm(n, 1) > 0 Then s = s & CStr(m(1, n)) & "-" & m(2, n) & vbNewLine 'en vez del If anterior aquí se podría llenar el listbox con m(1,n) y m(2,n) Next n MsgBox s End Sub
Saludos_