要求：若A列满足值为c，则将b列对应的内容背景色调为红色，并提取出来：
代码如下：
Sub naqu()
Dim i As Integer
For i = 2 To Range("a65536").End(xlUp).Row
If Cells(i, 1) = "c" Then
n = n + 1
Cells(i, 2).Interior.Color = 666
Cells(n, 3) = Cells(i, 2)
End If
Next
End Sub
原文：http://www.cnblogs.com/susuye/p/7476196.html