..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Izpis vsake 23. celice v stolpcu

Pomoč pri izdelavi makrov

Izpis vsake 23. celice v stolpcu

OdgovorNapisal/-a capirossi » Če dec 24, 2009 2:32 pm

Pozdravljeni.

V .txt datoteki imam zapisane podatke v 210 000 vrsticah, ker pa je to število preveliko in bi potreboval samo vsak 22 zapis bi rad napisal macro, da bi se izognil ročnemu brisanju vrstic.
Torej v excel bi rad kopiral cca 60 000 vrstic in jih s pomočjo macra obdelal tako, da bi imel na koncu zapisanih cca 2700 vrstic oz vsako 22.
Poizkušal sem že na več načinov, obračal if stavek, dodajal spremenljivke pa ni bilo nič uspeha. Včasih mi je pobrisalo vse, drugič nič spet tretjič pol narobe.

To je ena izmed kod, ki sem jih uporabil:
Koda: Izberi vse
Private Sub CommandButton1_Click()
For brisi = 1 To 60000
For veckratnik = 1 To 1000
If (Range("A" & brisi) = 1) Or (Range("A" & brisi) = 23 * veckratnik) Then
Else: Range("A" & brisi).Delete
End If
Next
Next
End Sub[quote]

Prosim za pomoč. Za odgovor se že vnaprej zahvaljujem.

Lep pozdrav, Loris[/quote]
capirossi
 
Prispevkov: 25
Pridružen: Če dec 10, 2009 12:51 pm



Matjazev.NET
 

OdgovorNapisal/-a admin » Če dec 24, 2009 3:13 pm

Na ravno najboljši ali najhitrejši (no pravzaprav najslabši in najpočasnejši :)) a zagotovo najlažje razumljivi makro imate spodaj:
Koda: Izberi vse
Sub Brisi()
  Dim vrstica As Long
 
  Application.ScreenUpdating = False
  For vrstica = 2 To 2700
    Rows(vrstica & ":" & (vrstica + 20)).Delete Shift:=xlUp
  Next
  Application.ScreenUpdating = True
End Sub
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3526
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a capirossi » Če dec 24, 2009 3:56 pm

Najlepša hvala.

Vsem na forumu pa želim lepe praznike in srečno 2010.
capirossi
 
Prispevkov: 25
Pridružen: Če dec 10, 2009 12:51 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron