Laske tyhjät rivit lukujen väleistä ?

Timo _

Minkälaisella kaavalla saisin laskettu esim.
tyhjä,tyhjä,12,12,14,tyhjä,tyhjä,tyhjä,tyhjä,200,100,60,20,tyhjä,tyhjä,100 =vastaus 4 ja 2

Oikea tulos lähtisi laskemaan ensimmäisen luvun loputtua eli 14 jonka jälkeen laskisi 4 tyhjää ennen kuin tulisi 200 luku. Toinen luku tulisi kun laskisi 20 ja 100 välissä olevat tyhjät rivit eli 2 tyhjää.

3

406

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      laskee nyt A-sarakkeesta tyhjät välit alkaen solusta A1 viimeiseen riviin asti ja tulostaa F1 soluun. Tyhjiä välejä voi olla useampiakin kuin pyytämäsi 2

      moduuliin...

      Sub LAskeTyhjätVälit()
      Dim vika As Long
      Dim i As Long
      Dim tulos As String
      vika = Range("A65536").End(xlUp).Row
      For i = 2 To Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).Areas.Count
      tulos = tulos & Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).Areas(i).Cells.Count & ", "
      Next
      Range("F1") = Left(tulos, Len(tulos) - 2)
      End Sub

      Keep Excelling
      @Kunde

      • Timo__

        Hienosti toimi laskukaava ylhäältä alas.
        En vain huomannut tarkentaa.
        Tyhjiä pitäisi laskea E5:AE5 välistä kyseisen kohdan tyhjät voisi ilmoittaa AH5 kohtaan.
        Koko alue mistä tyhjiä lasketaan on E5:AE370 jokaisen rivin tyhjät yllä olevilla ehdoilla ilmoitetaan aina AH(NRO) kohtaan.

        Olisko tähän neuvoa?

      • kunde
        Timo__ kirjoitti:

        Hienosti toimi laskukaava ylhäältä alas.
        En vain huomannut tarkentaa.
        Tyhjiä pitäisi laskea E5:AE5 välistä kyseisen kohdan tyhjät voisi ilmoittaa AH5 kohtaan.
        Koko alue mistä tyhjiä lasketaan on E5:AE370 jokaisen rivin tyhjät yllä olevilla ehdoilla ilmoitetaan aina AH(NRO) kohtaan.

        Olisko tähän neuvoa?

        Sub LAskeTyhjätVälit2()
        Dim vika As Long
        Dim i As Long
        Dim rivi As Long
        Dim tulos As String

        Range("AH:AH").Clear

        For rivi = 5 To 370

        vika = Range("IV" & rivi).End(xlToLeft).Column

        For i = 2 To Range(Cells(5, 5), Cells(5, vika)).SpecialCells(xlCellTypeBlanks).Areas.Count
        tulos = tulos & Range(Cells(5, 5), Cells(5, vika)).SpecialCells(xlCellTypeBlanks).Areas(i).Cells.Count & ", "
        Next

        If Not tulos = "" Then
        Range("AH" & rivi) = Left(tulos, Len(tulos) - 2)
        tulos = ""
        End If

        Next
        Range("AH:AH").NumberFormat = "@"
        Range("AH:AH").EntireColumn.AutoFit
        End Sub

        Keep Excelling
        @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Persujen vaalilupaus oli euron bensa

      Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.
      Maailman menoa
      93
      2168

    2. Vain vasemmistohallitus saa minut menemään töihin

      Änkyräkapitalistien sortaessa kansaa en laita rikkaakaan ristiin. Elän mielummin Kelan tuilla, ja jos niitä leikataan, n
      Maailman menoa
      45
      2132

    3. Maataloustuet perittävä korkojen kera takaisin

      Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi
      Maataloustuki
      50
      1855

    4. Topi osti Askon

      Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan
      Maailman menoa
      75
      1370

    5. Mitä kirjainta kaipaat?

      Pitkästä aikaa tämmöistä. Onko kirjain muuttunut edellisestä. ☺️
      Ikävä
      86
      1271

    6. Kastaa ja upottaa on eri sanat

      Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan
      Kaste
      219
      1151

    7. Uskomatonta touhua!

      Ei olis uskonut että kateus yrittäjää kohtaan menee noin pitkälle. TTP:ssa irrotettu sähköjohto jäätelöaltaasta. Kaikki
      Haapavesi
      31
      1100

    8. Oliko se oikeasti epäselvää

      sinulle että olin ihastunut sinuun? (Ymmärrän että siitä on aikaa, eikä voi olettaa että kaikkea muistaisi tai että men
      Ikävä
      58
      1048

    9. Miten hän sinua katsoi?

      😊😊😊😊😊😊
      Ikävä
      68
      969

    10. Miksi eduskuntatalon portaille sytyttään tänään 8 645 kynttilää?

      Oikeus elämään ry järjestää lauantaina 21.3.2026 tapahtuman, jossa Eduskuntatalon portaille sytytetään 8 645 kynttilää.
      Luterilaisuus
      285
      910
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt