Zeile ausblenden basierend auf Zelle, die Text enthält

Question

Ich versuche, Zeilen basierend auf Zellen in Spalte B zu verbergen, die "MR0 ..." enthalten, und die Zeilen zu belassen, die "MR0 ..." nicht enthalten. ZB habe ich eine Liste und möchte die Reihen verstecken, die mehr als 1000 MR ... Codes enthalten. MR01010 MR01020 MR01050 MR01052 MR01059 MR01060 MR01080 MR01081 MR01110

Ich habe folgendes versucht, aber scheinen am .value wie "* MR0" stecken zu bleiben Dann Bühne ...

Sub MonthlyStage2() 

beginRow = 13 
endRow = 500 
chkCol = 2 

For rowCnt = beginRow To endRow 
    If Cells(rowCnt, chkCol).Value Like "*MR" Then 
     Cells(rowCnt, chkCol).EntireRow.Hidden = True 
    Else 
     Cells(rowCnt, chkCol).EntireRow.Hidden = False 
    End If 
Next rowCnt 
End Sub 

&

Sub stage2() 
Dim rng As Range 
Dim cell As Range 
Dim ContainWord As String 
Dim LR As Long, i As Long 

LR = Range("B" & Rows.Count).End(xlUp).row 
For i = LR To 2 Step -1 
If Range("B" & i).Value Like "*MR0" Then Rows(i).EntireRow.Hidden = True 

Next i 

End Sub 

ohne viel Glück. Irgendwelche Hilfe bitte? prost

Answer 1

Der erste Code überprüft, beginnend mit der Zeile 13 und der zweite Code beginnt von unten in Zeile bis zum Ende 2.

Beide funktionieren Kriterien *MR0* verwenden, aber vielleicht ein bisschen langsam vor allem für große erweisen Daten.

Um es schneller zu machen, denken Sie daran, die Verstecken-Operation am Ende auf einmal durchzuführen. Etwas wie dieses:

Sub MonthlyStage2() 
    Dim beginRow As Long, endRow As Long, chkCol As Long, rowCnt As Long, r As Range, tmpR As Range 
    beginRow = 13 
    endRow = 500 
    chkCol = 2 
    For rowCnt = beginRow To endRow 
     If Cells(rowCnt, chkCol).Value Like "*MR0*" Then 
      If r Is Nothing Then 
       Set r = Cells(rowCnt, chkCol) 
      Else 
       Set tmpR = Cells(rowCnt, chkCol) 
       Set r = Union(r, tmpR) 
      End If 
     End If 
    Next rowCnt 
    r.EntireRow.Hidden = True 
End Sub 
Sub stage2() 
    Dim rng As Range, cell As Range, ContainWord As String, LR As Long, i As Long, r As Range, tmpR As Range 
    LR = Range("B" & Rows.Count).End(xlUp).Row 
    For i = LR To 2 Step -1 
     If Range("B" & i).Value Like "*MR0*" Then 
      If r Is Nothing Then 
       Set r = Range("B" & i) 
      Else 
       Set tmpR = Range("B" & i) 
       Set r = Union(r, tmpR) 
      End If 
     End If 
    Next i 
    r.EntireRow.Hidden = True 
End Sub