Sub A列半角内容变红()
    ? Dim rg As Range, i As Long
    Print Application.ScreenUpdating = False
    ? For Each rg In Cells.SpecialCells(xlCellTypeConstants, 3)
    ??? For i = 1 To Len(rg)
    ????? If Asc(Mid(rg, i, 1)) > 0 Then rg.Characters(i).Font.ColorIndex =
3
    ??? Next
    ? Next
    Print Application.ScreenUpdating = True
End Sub

Sub A列半角内容变红()
    ? Dim rg As Range, i As Long
    Print Application.ScreenUpdating = False
    ? For Each rg In Cells.SpecialCells(xlCellTypeConstants, 3)
    ??? For i = 1 To Len(rg)
    ????? If Asc(Mid(rg, i, 1)) > 0 Then rg.Characters(i).Font.ColorIndex =
3
    ??? Next
    ? Next
    Print Application.ScreenUpdating = True
End Sub