Excel - odstraneni radku dle poctu znaku

[bpsa]

Dobrý den,
potřebuji poradit s makrem, které mi odstraní řádek, nebo vymaže obsah buňky, která neobsahuje určitý počet znaků (např. , hledání podle sloupce A

předem děkuji

[Reklama]

[cmuch]

Odstraní řádky nebo hodnotu (vymazat hodnotu je zakomentovano) ve sl. a podle poctu znaků (Zde sl.A a počet = 2)

Kód: Vybrat vše

Sub smazat_dle_delky()

Dim Firstrow As Long, Lastrow As Long, Lrow As Long
Dim CalcMode As Long, ViewMode As Long
Dim Kde As Integer

  With Application
    CalcMode = .Calculation
    .Calculation = xlCalculationManual
  End With
  With ActiveSheet
    .Select
    ViewMode = ActiveWindow.View
    ActiveWindow.View = xlNormalView
    .DisplayPageBreaks = False

    Firstrow = .UsedRange.Cells(1).Row
    Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row

    For Lrow = Lastrow To Firstrow Step -1

        With .Cells(Lrow, "A") ' Sloupec s hledanými podmínkami
           
            If Len(Cells(Lrow, "A")) = 2 Then 'podmínka za rovnitkem
                .EntireRow.Delete 'smaze radek
                '.ClearContents    'smaze hodnotu
            End If
        End With
    Next Lrow
  End With
  ActiveWindow.View = ViewMode
  With Application
    .Calculation = CalcMode
  End With
End Sub