1234567891011121314Sub tt()Dim arrDim i%,j%,n%,st$arr = Range("Z1:Z" & [Z6360问答5536].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 NextNextrs:Range("Z" & i).Interior.Color= 16751103End Sub追问 : k:z范围 是单元格内容有相同字符的 如 asa 中重复a 像这样的单元填充颜色7 ddf中重复d 像这样的单元填充颜色7 这个单元格不一定在最后一个单元 可能在最后第3单元 追答 : Sub tt()Dim arrDim 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 Nextrs:NextEnd Sub