VBA_針對儲存格特殊字眼標示

下面的代碼用來標示可能存在的辦法，不過要先把辦法的檔案名稱弄到excel中可以參考 這個 VBA_建立檔案目錄 ，如果有項辦法這種原本有紀錄清單的，就。 

Sub A1_關鍵字確認_辦法()

    '2021/12/10 

    Application.ScreenUpdating = False

    

    arr_辦法 = Array("制度", "辦法", "循環", "守則", "準則", "規則", "作業", "程序", "規範", "文管", "衍生", "條文", "對照", _

  "第1版", "第2版", "第3版", "第4版", "第5版", "第6版", "第-1版", "第-2版", "第-3版", "第-4版", "第-5版", "第一版", "第二版", "第三版", "第四版", "第五版","章程","財務及非財務","資通")

    

    With ActiveSheet

        lr = .Range("A1048576").End(xlUp).Row

        For i = 2 To lr

            For i_arr = LBound(arr_辦法) To UBound(arr_辦法)

                If .Cells(i, 1) Like "*" & arr_辦法(i_arr) & "*" Then

                    .Cells(i, 1).Interior.ColorIndex = 6

                    Exit For

                End If

            Next

        Next

    End With

End Sub