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

• #40735 RAiN91 őstag

  Új Válasz 2019-04-12 19:43:10 #40735

  Ú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

  

  RAiN91

  őstag

  Sziasztok

  Üres sorokat szeretném törölni, hogy az adatok között ne legyen rés. Van egy makróm rá, de nagyon lassú, 36.000 Sor esetében, fél óra alatt nem végzett, le is állítottam. Hogyan lehetne begyorsítani, vagy máshogyan megközelíteni a sortörlést? Köszönöm.

  Sub Sortorles2()

Dim i As Integer

For i = 25 To 3 Step -1
If Cells(i, 5) = "" Then
Rows(i).EntireRow.Delete
End If

Next

End Sub

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