在Excel中，用vba写一个小程序，根据单元格内不同的内容填充上不同的颜色

Sub ColorCells() Dim cell As Range For Each cell In Selection Select Case cell.Value Case "A" cell.Interior.Color = RGB(255, 0, 0) '红色 Case "B" cell.Interior.Color = RGB(0, 255, 0) '绿色 Case "C" cell.Interior.Color = RGB(0, 0, 255) '蓝色 Case Else cell.Interior.ColorIndex = xlNone '无颜色 End Select Next cell End Sub 说明： 1. 该程序适用于选定区域内的单元格； 2. 根据单元格内的内容，选择不同的颜色填充； 3. 如果单元格内的内容不是"A"、"B"或"C"，则不填充颜色。