Macro para eliminar valores duplicados
Necesito una macro para eliminar los numeros duplicados y la totalidad de los caracteres X de cada fila del rango C2: V25.
Respuesta de Dante Amor
3
Visita:
Cursos de Excel y Macros
----- --
Utiliza la siguiente:
Sub EliminarDuplicados()
'Por Dante Amor
Dim dic As Object
Dim sh1 As Worksheet
Dim i As Long, j As Long, k As Long
Dim a As Variant, b As Variant
Set sh1 = Sheets("Proceso")
Set dic = CreateObject("Scripting.Dictionary")
a = sh1.Range("C2:V25")
ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
For i = 1 To UBound(a, 1)
dic.RemoveAll
k = 1
For j = 1 To UBound(a, 2)
If Not dic.exists(a(i, j)) And a(i, j) <> "X" Then
dic(a(i, j)) = Empty
b(i, k) = a(i, j)
k = k + 1
End If
Next
Next
sh1.Range("C2").Resize(UBound(b, 1), UBound(b, 2)).Value = b
End SubRecomendaciones:
Sal u dos Dante Amor
