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

• Fferi50 Topikgazda

  #40744

  #40743 RAiN91

  2019-04-13 10:52:31

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #40743 RAiN91

  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