excel vba单元格内查找重复项填充单元为粉红色

Question

k:z范围
每列找出最后一个有重复内容的单元并填充其单元格为粉红色
例如： z列中 倒数第15单元中有：asd2a 这里a是重复项，填充此单元为粉红色

Answer 1

Sub tt()
Dim arr
Dim i%,j%,n%,st$
arr = Range("Z1:Z" & [Z65536].End(3).Row)
For i = Ubound(arr) to 1 Step -1
    st = arr(i,1)
    For j = 1 to len(st)
         n = Instr(1,st,Mid(st,j,1))
         If n < j Then Goto rs
    Next
Next
rs:
Range("Z" & i).Interior.Color= 16751103
End Sub

追问

k:z范围

是单元格内容有相同字符的
如 asa 中重复a 像这样的单元填充颜色7
ddf中重复d 像这样的单元填充颜色7
这个单元格不一定在最后一个单元 可能在最后第3单元

追答

Sub tt()

Dim arr

Dim i%,j%,n%,st$

arr = Range("K1:Z" & [Z65536].End(3).Row)

For ii= 1 to Ubound(arr,2)

    For i = Ubound(arr) to 1 Step -1

        st = arr(i,ii)

        For j = 1 to len(st)

             n = Instr(1,st,Mid(st,j,1))

             If n < j Then 

                 Range(cells(i,ii+10),cells(i,ii+10)).Interior.Color= 16751103

                 Goto rs

             End If

        Next

    Next

rs:

Next

End Sub