Удалить текст в ячейке Excel с определенным форматом

Question

Как легко удалить строки в ячейках Excel с определенным форматированием. Я хочу удалить ячейку с отформатированной строкой, как во второй ячейке.

Строка может быть любой, единственное, что ее определяет — это форматирование.

Answer 1

Я не вижу способа сделать это без кода, если форматирование смешано в ячейке. Вы можете использовать UDF, как показано ниже:

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

Конечная функция