EXCEL VBA(从显示列最后开始向上查找10行)查找并填充单元颜色

1。VBA(从显示列最后开始向上查找)
2。相同内容填充颜色
3。以最后一行来判断它上面的内容,相同的填充单元格颜色
http://pan.baidu.com/s/1jGpat2u

Sub Maqqqq()
 Dim k%, i%, j%, Arr$()
 Dim Dic As Object
 Set Dic = CreateObject("Scripting.Dictionary")
 For k = 11 To 55
 j = Cells(Rows.Count, k).End(xlUp).Row
 Arr = Split(Cells(j, k).Value & "/", "/")
 Dic.RemoveAll
 For i = 0 To UBound(Arr)
  Dic(Arr(i)) = ""
 Next i: Dic.Remove ""
 For i = j - 1 To j - 11 Step -1
  If Dic.Exists(CStr(Cells(i, k).Value)) Then
   Cells(i, k).Interior.ColorIndex = 3
  Else
   Cells(i, k).Interior.ColorIndex = 0
  End If
 Next i
 Next k
 Set Dic = Nothing
End Sub

温馨提示:答案为网友推荐,仅供参考
第1个回答  2015-05-10
不需要vba,条件格式即可实现追问

要vba方便
从最后行起
填充范围10行

追答

tj=cells(cells(rows.count,"K").end(3).row,"K")
for i=cells(rows.count,"K").end(3).row-1,to 1 step -1
if instr(tj,cells(i,"k"))>0 then
range("K" & i).Interior.ColorIndex = 3
end if
next

追问

for i=cells(rows.count,"K").end(3).row-1,to 1 step -1

追答

for i=cells(rows.count,"K").end(3).row-1 to 1 step -1

多了个逗号

相似回答