在excel里用代码，从第2-10列，输入不同字母数字显示不同颜色，例如：输入1，填充红色；2：绿色，3，黄色

If Target.Column = 2 Then
If UCase(Target.Value) = "1" Then
Target.Interior.Color = vbRed
ElseIf UCase(Target.Value) = "2" Then
Target.Interior.Color = vbBlue
End If
End If
复制8份就可以了。target.column = 2 到 10 判断

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Err
    If Target.Column >= 2 And Target.Column <= 10 Then
        Select Case UCase(Target.Value)
            Case "1"
                Target.Interior.Color = vbRed
            Case "2"
                Target.Interior.Color = vbBlue
            Case "3"
               Target.Interior.Color = vbYellow
            Case "13"
               Target.Interior.Color = vbYellow '根据需要修改为其它值
        End Select
    End If
    Exit Sub
Err:
End Sub

本回答被提问者采纳