Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #40744 Fferi50 Topikgazda RAiN91 #40743
    Új Válasz #40744
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fferi50

    Topikgazda

    válasz RAiN91 #40743 üzenetére

    Szia!

    Elképzelhető, hogy olyan tartományokat határoz meg, amelyek nem egybefüggőek, ezért nem tudja törölni. Bár akkor hibával meg kellene állnia.
    A Range("A1") az első cella a munkalapon.
    A CurrentRegion az A1 cella körüli összefüggő tartomány, amelyet egy üres sor és egy üres oszlop határol.
    A Columns(5) ennek a tartománynak az 5. oszlopa. Ebben keressük az üres cellákat és rendeljük hozzá az egész sort.

    Talán érdemes megpróbálni így:
    Sub Sortorles2()
    Dim ures As Range, terulet As Range
    Set ures = Range("A1").CurrentRegion.Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow
    For Each terulet In ures.Areas
    terulet.Delete
    Next
    End Sub

    De problémát okozhat még esetleg az összevont cellák létezése is.

    Persze ha túl nagy a terület, amit használsz, akkor lassú lehet a törlés így is.

    Üdv.

Új hozzászólás Aktív témák