Excluir texto na célula do Excel com determinado formato

Question

Como excluo facilmente strings em células do Excel com determinada formatação. Quero que a célula com string formatada seja excluída como a segunda célula

A string pode ser qualquer coisa a única coisa que a 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 uma UDF como esta 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