然后我们点击开发工具打开vba编辑器，找到与工作表名称相对用的表格输入代码 Private Sub Worksheet_Change(ByVal Target As Range) Target.Interior.Color = vbRed End Sub 然后点击关闭如下动图 这样的话只要我们更改数据，单元格就会填充红色