vbaの検索に似ているか正規表現

Question

私はVBAプログラムを書いています。 私は1つの列

For j = 0 To 4 
    For i = 2 To lastrow 
     If Cells(i, 12).Value = groupnames(j) And Cells(i, 8).Value Like "*" & "[BLOCKED]" & "*" Then 
      groupsum(j) = groupsum(j) + 1 
     End If 
    Next i 
Next j 

プログラムは、私が仕事に行くにこれを行うことができますどのように500を見つけた私は、この文字列のための96個の細胞を持っていますが、されて問題にこの文字列[BLOCKED]を見つけるのに問題がありますか？
ありがとうございました

Answer 1

のように、の操作が間違っています。用途：

... Like "*[[]BLOCKED]*" 

[...]は、Characterクラスです。だからあなたの質問に書かれている方法では、それはブロックされたセット内の任意の単一の文字を見つけるでしょう。それは明らかにあなたが望むものではありません。

[文字に一致するように、私が示したように、それを文字クラスに囲みます。 ]文字に一致するには、文字クラスの外にある必要があります。ここ

Answer 2

は私のコードです

Sub blocked() 

Dim SfileUsers As String 
Dim path As String 
Dim pathread As String 
Dim sFileread As String 
Dim lastrow As Long 
Dim keres() As Variant 
Dim groupadd() As String 
Dim groupnames(4) As String 
Dim groupsum(4) As Long 




path = "C:\Users\uids9282\Desktop\" 
SfileUsers = "Users.xlsx" 
Workbooks.Open path & SfileUsers 
Dim hossz As Long 
hossz = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 
ReDim keres(hossz) 
ReDim groupadd(hossz) 
For i = 2 To hossz 
keres(i) = Sheets(1).Cells(i, 2).Value 
groupadd(i) = Sheets(1).Cells(i, 4).Value 
Next i 


'fájlmegnyitás 
pathread = "C:\Users\uids9282\Desktop\20170703\" 
sFileread = "open.xml" 
     If Dir(pathread & sFileread) = sFileread Then 
      Workbooks.Open pathread & sFileread 
      lastrow = Workbooks(sFileread).Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 

      Else 
      MsgBox ("Nincs ilyen nevű excel táblázat. Kérem próbálkozzon újra") 
     End If 

'groupok hozzáadása a fájlhoz 
Dim user As String 
For j = 2 To hossz 
    For i = 2 To lastrow 
    user = Trim(Cells(i, 5).Value) 
     If user = keres(j) Then 
      Cells(i, 12).Value = groupadd(j) 
     End If 
    Next i 
Next j 

'group szummázása és átírása 
ThisWorkbook.Activate 
For i = 2 To 6 
groupnames(i - 2) = Cells(i, 1).Value 
Next i 
Workbooks(sFileread).Activate 
For j = 0 To 4 
    For i = 2 To lastrow 
     If Cells(i, 12).Value = groupnames(j) And Cells(i, 8).Value Like "*[[]BLOCKED[]]*" Then 'itt van benne a hiba!!   groupsum(j) = groupsum(j) + 1 
     End If 
    Next i 
Next j 
ThisWorkbook.Activate 
For j = 2 To 6 
    Cells(j, 4).Value = groupsum(j - 2) 
Next j 

Workbooks(SfileUsers).Close SaveChanges:=False 
Workbooks(sFileread).Close SaveChanges:=True 


End Sub 

this is my excel file where i want to searching