通过关键词查找匹配项

sallyxia414

用“岗位对照”A列中的岗位和“1808新增”中D列岗位进行匹配，只要D列中有包括“岗位对照”A列中任何一个关键词，则备注绿色底色~~


人数多的时候每个月新增会有70+人，总表有两百人

任飘渺

Sub sds()
    Dim dic As Object, arr, brr
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
        .Range("j2:j65536").ClearContents
        arr = .Range("a1").CurrentRegion.Value
        brr = Sheet2.Range("a1").CurrentRegion.Value
       For i = 1 To UBound(brr)
            For j = 2 To UBound(arr)
                If arr(j, 4) Like "*" & brr(i, 1) & "*" Then
                    .Cells(j, 10).Value = "绿色底色~~"
                End If
            Next j
       Next i
    End With
End Sub

719404338

1. Sub t()
   
2. Dim arr, i%, j%
   
3. arr = Sheet2.Range("a1:a" & [a65536].End(3).Row)
   
4. For i = 2 To [d65536].End(3).Row
   
5.    For j = 1 To UBound(arr)
   
6.    If Range("d" & i) = arr(j, 1) Then Range("d" & i).Interior.ColorIndex = 4
   
7.    Next j
   
8. Next i
   
9. End Sub
   

复制代码

sallyxia414

任飘渺 发表于 2018-8-21 11:13
Sub sds()
    Dim dic As Object, arr, brr
    Set dic = CreateObject("scripting.dictionary")

感谢感谢，可能我表述有问题，我是想把岗位的底色变成绿色。不过我可以自己改改，我是刚学，慢慢在摸索当中~~

sallyxia414

719404338 发表于 2018-8-21 11:30

感谢~~好像是显示不全，楼上的那个显示全了，然后我参照你的代码改了一下，已经可以满足我的需求了，非常感谢！！