要求:若A列满足值为c,则将b列对应的内容背景色调为红色,并提取出来:代码如下:Sub naqu()Dim i As IntegerFor i = 2 To Range("a65536").End(xlUp).RowIf Cells(i, 1) = "c" Then n = n + 1 Cells(i, 2).Interior.Color = 666 Cells(n, 3) = Cells(i, 2)End IfNextEnd Sub