Eli koodin pätkä on tässä:
Range("a1:a480").Select
For Each Cell In Selection
If Cell.Value = "0" Then
Cell.EntireRow.Delete
End If
Next Cell
Range("a1").Select
Tarkoitus siis poistaa kaikki rivit välillä a1:a480, a sarakkeen solun arvo on 0. Tuo toimii muuten mutta sitä pitää toistaa usean kerran että se poistaa kaikki rivit. Saisiko sen muutettua niin ettei se hyppisi rivien yli? Helposti?
Rivienpoisto makro jättää rivejä välistä
hukkaantunut
5
455
Vastaukset
- hukkaantunut
Tarkemmin sanottuna tuo hyppää aina yhden rivin yli.
makron pitää toimia alhaalta ylöspäin... ;-)
- hukkaantunut
Olisko ollut toteutuksesta vinkkiä?
- vaikka tuota
hukkaantunut kirjoitti:
Olisko ollut toteutuksesta vinkkiä?
Sub PoistaRivit()
Dim s As Single
Dim rForDelete As Range
Dim c As Range
Dim i As Long
With Sheets("Sheet1")
For Each c In .Range(.Cells(1, 1), .Cells(1000, 1))
If c.Value = 0 Then
If rForDelete Is Nothing Then
Set rForDelete = c
Else
Set rForDelete = Union(rForDelete, c)
End If
End If
Next
End With
If Not rForDelete Is Nothing Then rForDelete.EntireRow.Delete
End Sub - hukkaantunut
vaikka tuota kirjoitti:
Sub PoistaRivit()
Dim s As Single
Dim rForDelete As Range
Dim c As Range
Dim i As Long
With Sheets("Sheet1")
For Each c In .Range(.Cells(1, 1), .Cells(1000, 1))
If c.Value = 0 Then
If rForDelete Is Nothing Then
Set rForDelete = c
Else
Set rForDelete = Union(rForDelete, c)
End If
End If
Next
End With
If Not rForDelete Is Nothing Then rForDelete.EntireRow.Delete
End SubSehän toimii niinkuin pitääkin. Kiitän ja kumarran.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään
Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää1413918Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa
Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri3563041Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla
Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt131967Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."
Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa101675Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?
Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja41119- 71964
Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan
Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar39884Kuhmossa rallit alkoi ennen aikojaan
Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat23831- 70808
- 44794