如何批量实现excel表中文本里的数字变色（字体变色）达到如下效果？

前
后

Private Sub Numeric()
  For i = 1 To 5
    Dim strCellValue As String
    strCellValue = Cells(i, 1).Value
    For x = 1 To Len(strCellValue)
      Dim strValue As String
      strValue = Mid(strCellValue, x, 1)
      If IsNumeric(strValue) = True Then
        With Cells(i, 1).Characters(Start:=x, Length:=1).Font
          .Color = -16776961
        End With
      End If
    Next
  Next
End Sub