Ukrywanie wierszy w zależności od wartości komórki

Ukrywamy wiersze dla których pierwsza kolumna zawiera ciąg "Nie"

Sub HideRows()
  
  Dim lastRow
  lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
  
  For i = 1 To lastRow
  
    If (StrComp(Cells(i, 1).Value, "Nie", vbTextCompare) = 0) Then
        Cells(i, 1).EntireRow.Hidden = True
    Else
        Cells(i, 1).EntireRow.Hidden = False
    End If
    
  Next i
  
End Sub

I gotowe - cześć wierszy została ukryta.

Ukrywanie innych kolumn

Jeśli chcielibyśmy wykonać to samo dla innej kolumny niż pierwsza wystarczy zmienić jej numer:

Sub HideRowsInCol()
  
  Dim lastRow
  lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
  Dim v_column

  v_column = 3
  
  For i = 1 To lastRow -- pętla po wszystkich wierszach
  
    If (StrComp(Cells(i, v_column).Value, "Nie", vbTextCompare) = 0) Then -- tu modyfikujesz też warunek
        Cells(i, v_column).EntireRow.Hidden = True
    Else
        Cells(i, v_column).EntireRow.Hidden = False
    End If
    
  Next i
  
End Sub