Удалить текст в ячейке 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

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