EXCEL VBA不同区域列找列对比，且列填充颜色到指定行

Sub s()
    ca = "a"
    cb = 3
    cl = Array(3, 6, 43, 14, 33, 47, 7)
    n = Cells(Rows.Count, 11).End(3).Row
    For j = 11 To 313
        k = Cells(n, j) Mod 10 - Cells(n, j) \ 10
        t = " "
        If k = 0 Then
            t = "a"
        ElseIf k = 5 Or k = -5 Then
            t = "b"
        End If
        If InStr(ca, t) > 0 Then
            k = Cells(n - 1, j).Interior.ColorIndex
            If k <> xlNone Then
            For i = 0 To 6
                If cl(i) = k Then Exit For
            Next
            Cells(i + 1, j) = Cells(i + 1, j) & Cells(n, cb)
            End If
        End If
    Next
End Sub

文件在哪里？

你的文件呢?