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

发布网友发布时间：2022-06-08 11:26

共2个回答

热心网友时间：2023-11-12 16:32

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

热心网友时间：2023-11-12 16:33

不需要vba，条件格式即可实现

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com