Hirdetés
-
Mobilarena
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
-
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 SubDe 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
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Android / Server / Mail / stb.
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Samsung Galaxy S20 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
- Csere-Beszámítás! Gamer Számítógép játékra! I5 14600KF / RTX 3080Ti / 32GB DDR4 / 1TB SSD
- Apple iPhone 12 Mini 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÚJ HP EliteBook 840 G8 - 14"FHD IPS - i5-1145G7 - 32GB - 512GB SSD - Win10 PRO - Garancia
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest