Eliminar contenido de una celda
Buenos días
Por favor ayudame
Como puedo eliminar datos repetidos dentro de una celda
osea dentro de una celda tengo los siguientes datos:
Pedro, jose, pedro, jose
Como puedo hacer que dentro de mi celda nada más este pedro, jose y no este varias veces repetido, así tengo como 16,000 registros, ¿se podrá hacer mediante una macro?
Por favor ayudame
Como puedo eliminar datos repetidos dentro de una celda
osea dentro de una celda tengo los siguientes datos:
Pedro, jose, pedro, jose
Como puedo hacer que dentro de mi celda nada más este pedro, jose y no este varias veces repetido, así tengo como 16,000 registros, ¿se podrá hacer mediante una macro?
1 respuesta
Respuesta de blooddragon
1
Si puedes programar una macro para eso tomarías los resultados de la celda dentro de una variable y vas decsartando los valores repetidos si alguno no se encuentra entonces lo vacías a una segunda variable guardala como función y la puedes utilizar directamente
Me podrías mandar un ejemplo por favor
Va esta condicionado a que la cadena este separada por comas
Function eliminar_repetidos(val As String) As String
Dim Val1, Val2, Res As String
Dim fin As Boolean
Do Until fin
If InStr(1, val, ",") = 0 Then
Val1 = val
Val2 = ""
fin = True
Else
Val1 = Left(val, (InStr(1, val, ",") - 1))
Val2 = Right(val, (Len(val) - Len(Val1)) - 1)
End If
If InStr(1, Val2, Val1) = 0 Then
If Res = "" Then
Res = Val1
Else ' Else of If Res = "" Then
Res = Res & "," & Val1
End If ' If Res = "" Then
val = Val2
Else
val = Val2
End If 'If InStr(1, Val2, Val1) = 0 Then
Loop 'Do Until fin
eliminar_repetidos = Trim(Res)
End Function
Function eliminar_repetidos(val As String) As String
Dim Val1, Val2, Res As String
Dim fin As Boolean
Do Until fin
If InStr(1, val, ",") = 0 Then
Val1 = val
Val2 = ""
fin = True
Else
Val1 = Left(val, (InStr(1, val, ",") - 1))
Val2 = Right(val, (Len(val) - Len(Val1)) - 1)
End If
If InStr(1, Val2, Val1) = 0 Then
If Res = "" Then
Res = Val1
Else ' Else of If Res = "" Then
Res = Res & "," & Val1
End If ' If Res = "" Then
val = Val2
Else
val = Val2
End If 'If InStr(1, Val2, Val1) = 0 Then
Loop 'Do Until fin
eliminar_repetidos = Trim(Res)
End Function
