当某列满足设定的多个不同的条件时将整行填充不同颜色,并运用到整个表格。符合某列值提取整行到别的表

Question

是两个问题。
1) 比如D列的所有单元格都有多个序列（好，一般，差，不好），选择“好”整行填充红色，”一般“整行填充橙色，..........。

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i, j

       i = Sheet1.UsedRange.Rows.Count

    For j = 1 To i

       If Range("D" & j).Value = "好" Then

          Rows(j).Interior.ColorIndex = 1

       ElseIf Range("D" & j).Value = "一般" Then

          Rows(j).Interior.ColorIndex = 2

       ElseIf Range("D" & j).Value = "差" Then

          Rows(j).Interior.ColorIndex = 3

       ElseIf Range("D" & j).Value = "不好" Then

          Rows(j).Interior.ColorIndex = 4

       End If

    Next

End Sub

其中，，1，2，3， 4 分别代表黑白红绿，，，不同的颜色由不同的数字表示的，，你可以改成你需要的颜色，只需要改变数字就可以了。这个代码最多可以设置56个颜色，如果用条件格式的话，也可以，楼下一百℃猪 的方法也可以，不过没有这么多就是了。

追问

我用的是Excel2003 ，用不了 “宏” VBA 。有更新的破解版本吗？上传 [email protected] 谢谢

追答

我这也是excel2003

追问

上面的公式写在哪呢？

追答

ALT+F11 ，，打开VBE编辑器，，然后双击你数据所在的sheet，，比如你想在sheet2中实现这个功能，就双击sheet2，然后会弹出一个空白的窗口，将以上代码复制进去就可以了。

Answer 2

可以用条件格式，但最多只支持三种颜色
四种的话，可以先将所有行填充为第一种颜色
然后再通过条件格式填充为不同的三种颜色
但如果区分超过四种的话，还是手工筛选后设置填充颜色吧……本回答被提问者和网友采纳

Answer 3

说实话真没看明白说的什么
满足的是什么条件
睡觉~~