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

• #40744 Fferi50 Topikgazda RAiN91 #40743

  Új Válasz 2019-04-13 10:52:31 #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