Excluir texto na célula do excel com determinado formato

Question

Como faço para excluir facilmente strings em células do Excel com determinada formatação.Eu quero obter celular com seqüência de caracteres formatada excluída como a segunda célula

A string pode ser qualquer coisa, a única coisa que o define é a formatação

    

Answer 1

Não consigo ver uma maneira de fazer isso sem código se a formatação estiver misturada em uma célula. Você poderia usar um UDF como este abaixo:

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

Função final