Filtrando Celulas com comentario no Excel.

Primeiro, Abra o Excel e Aperte Alt+F11, apos isso na janela nova que vai abrir, você clica em inserir, depois Modulo, cole esse código abaixo e Clique em salvar.

Apos Salvar na janela do Excel que você quer filtrar e só apertar Alt+F8 Clicar em filtrar células, para filtrar, e Mostrar Celular para desfazer o filtro.

Clique em Leia Mais para ver o código.





Sub FiltrarCelulas()
  Application.ScreenUpdating = False
    On Error Resume Next
    ul = Val(ActiveSheet.Range(Replace(ActiveCell.Address(0, 0), ActiveCell.Row, "") & 65535).End(xlUp).Row)
    With Range(Replace(ActiveCell.Address(0, 0), ActiveCell.Row, "") & 2 & ": " & Replace(ActiveCell.Address(0, 0), ActiveCell.Row, "") & ul)
      .SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
      .SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True
      .SpecialCells(xlCellTypeComments).EntireRow.Hidden = False
    End With
  Application.ScreenUpdating = True
End Sub

Sub MostrarCelulas()
  Application.ScreenUpdating = False
    On Error Resume Next
    With Cells
      .SpecialCells(xlCellTypeConstants).EntireRow.Hidden = False
      .SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = False
      .SpecialCells(xlCellTypeComments).EntireRow.Hidden = False
    End With
  Application.ScreenUpdating = True
End Sub