可以，要用VBA宏，在Worksheet_Change事件中写代码，举例说明Private Sub Worksheet_Change(ByVal Target As Range)Select Case Left(Target.Text, 1) '根据单元格第一字符确定单元格填充色
Case "1"
Target.Interior.ColorIndex = 34
Case "2"
Target.Interior.ColorIndex = 50
Case "3"
Target.Interior.ColorIndex =...
