EXCEL VBA(从显示列最后开始向上查找10行)查找并填充单元颜色
1。VBA(从显示列最后开始向上查找)2。相同内容填充颜色3。以最后一行来判断它上面的内容,相同的填充单元格颜色http://pan.baidu.com/s/1jGpat...
1。VBA(从显示列最后开始向上查找)
2。相同内容填充颜色
3。以最后一行来判断它上面的内容,相同的填充单元格颜色
http://pan.baidu.com/s/1jGpat2u 展开
2。相同内容填充颜色
3。以最后一行来判断它上面的内容,相同的填充单元格颜色
http://pan.baidu.com/s/1jGpat2u 展开
2个回答
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询