excel vba填充并读取内容

Question

1.数据范围为j:p列

Answer 1

Sub s()
    ca = 7
    n = Cells(Rows.Count, 10).End(3).Row
    For i = 10 To 16
        k = 0
        t = ""
        Do While Len(t) < ca And n > k
            tt = Cells(n - k, i).Text
            If InStr(t, tt) = 0 Then t = t & tt
            k = k + 1
        Loop
        Cells(1, i) = t
    Next
End Sub追问

结果有了，但不填充颜色
从最后开始向上填充颜色
上下相同时，填充下单元颜色