删除 Excel 单元格中具有特定格式的文本

删除 Excel 单元格中具有特定格式的文本

如何轻松删除具有特定格式的 Excel 单元格中的字符串。我想删除具有格式化字符串的单元格,如第二个单元格

在此处输入图片描述

字符串可以是任何东西,唯一定义他的是格式

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

结束函数

相关内容