excel vba对比内容填充颜色

Question

1.K3:MO11为数据范围
详细http://pan.baidu.com/s/1eRmiF4I文件

Answer 1

Sub s()
    c = 3
    n = Cells(Rows.Count, c).End(3).Row + 3
    For i = 3 To 11
        t = Cells(n - i, c).Text
        For j = 11 To 353
            If InStr(Cells(i, j).Text, t) > 0 Then
                Cells(i, j).Interior.ColorIndex = 6
            End If
        Next
    Next
End Sub来自：求助得到的回答