Izpis vsake 23. celice v stolpcu

Pomoč pri izdelavi makrov
Odgovori
capirossi
Prispevkov: 25
Pridružen: Če Dec 10, 2009 12:51 pm

Izpis vsake 23. celice v stolpcu

Odgovor Napisal/-a capirossi »

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]
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

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
capirossi
Prispevkov: 25
Pridružen: Če Dec 10, 2009 12:51 pm

Odgovor Napisal/-a capirossi »

Najlepša hvala.

Vsem na forumu pa želim lepe praznike in srečno 2010.
Odgovori