Guru do Excel e Power BI

Sub excluir_cnpj()

Dim linha As Integer
Dim plan As Worksheet


Set plan = Sheets("plan")
ActiveCell.Range("B2").Select
plan.Select

linha = 2

Do Until plan.Cells(linha, 2) = ""

If Len(ActiveCell) = 18 Then

    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Select
    
    Exit Sub
    
Else

    linha = linha + 1
    
End If

Loop

End Sub

Sub Excluir()

Dim ulinha As Long
Dim w As Worksheet
Dim cel As Range
Dim tamanho As Long
Set w = Plan1
ulinha = w.Cells(w.Rows.Count, 2).End(3).Row


w.Select
w.Range("b2:b" & ulinha).Select


    For Each cel In Selection
    tamanho = VBA.Len(cel.Value)
    
        If tamanho = 18 Then
            cel.FormulaLocal = "=1"
        End If
        
    Next cel


w.Range("b2:b" & ulinha).SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete

End Sub

Sub ExcluiLinhasCNPJ()
 With Sheets("Página1")
  .AutoFilterMode = False
  .Range("A1:Q1").AutoFilter Field:=2, Criteria1:="<>"
  .Range("A2:Q" & Cells(Rows.Count, 2).End(3).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  .AutoFilterMode = False
 End With
End Sub

Sub excluir_cnpj()
Dim linha As Integer, plan As Worksheet
Set plan = Sheets("Página1")
linha = plan.Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To linha
    If Len(plan.Cells(i, 2)) = 18 Then
        plan.Cells(i, 2).EntireRow.Delete
    End If
Next i
End Sub