PC-HELP.CZ

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

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

PC-HELP.CZ

Excel - odstraneni radku dle poctu znaku

Excel - odstraneni radku dle poctu znaku

Re: Excel - odstraneni radku dle poctu znaku