excel怎麼把單元格內某個字標紅，其餘字不變

時間 2019-11-09

標籤 excel 怎麼單元格某個其餘不變欄目 Microsoft Office 简体版

原文原文鏈接

alt+F11，打開宏編輯器運行以下代碼：編輯器

Sub AAA()

    Dim R As Range, L As Long, S As String

    Application.ScreenUpdating = False

    S = "紅"  '要標記的字符

    L = Len(S)

    For Each R In Selection

        If InStr(R, S) > 0 Then R.Characters(InStr(R, S), L).Font.Color = vbRed

    Next

    Application.ScreenUpdating = True

End Sub