특정 형식의 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

기능 종료