Eliminar texto en una celda de Excel con cierto formato

Question

¿Cómo puedo eliminar fácilmente cadenas en celdas de Excel con cierto formato? Quiero eliminar la celda con una cadena formateada como la segunda celda.

La cadena puede ser cualquier cosa, lo único que lo define es el formato.

Answer 1

No veo una manera de hacerlo sin código si el formato se mezcla dentro de una celda. Podrías usar una UDF como esta a continuación:

Function DeleteFormat(aSource As Range) As String       
    Underline = xlUnderlineStyleSingle
    Strikethrough = True
    DeleteFormat = ""
    For i = 1 To Len(aSource.Value)
        If Not (aSource.Characters(i, 1).Font.Strikethrough = Strikethrough And     aSource.Characters(i, 1).Font.Underline = Underline) Then
            DeleteFormat = DeleteFormat & aSource.Characters(i, 1).Text
        End If
    Next

Función final