Sub 底色()
Cx = [A1048576].End(3).Row
Cells.Interior.ColorIndex = 0
For i = 1 To Cx
Rnga = Cells(i, 1)
Rngb = Len(Rnga)
For j = 1 To Rngb
Rngc = Mid(Rnga, j, 1)
If Not IsNumeric(Rngc) = True Then
Cells(i, 1).Interior.ColorIndex = 6
End If
Next
Next
End Sub