☰

特定の形式の Excel セル内のテキストを削除する

tag-icon • tag-icon microsoft-excel find-and-replace
特定の形式の Excel セル内のテキストを削除する

特定の書式が設定されたExcelセル内の文字列を簡単に削除するにはどうすればよいですか。2番目のセルのように書式設定された文字列が削除されたセルを取得したいです。

ここに画像の説明を入力してください

文字列は何でも構いませんが、それを定義できるのはフォーマットだけです

答え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

終了関数

関連情報