160000 riviä dataa, miten käsitellä

DataLogger

Moi

Mulla on laite joka kerää lämpötilaa vesihauteesta sekunnin välein. Valitettavasti tuota keräysfrekvenssiä ei voi muuttaa, jolloin tuloksena on valtavia exceltaulukoita. Tein makron jolla poistan joka toisen rivin, mutta excel kaatuu joka kerta kun yritän ajaa sen. Pienemmissä taulukoissa koodi toimii, joten vika on kai koossa. Onko olemassa näppärää keinoa jolla yhden taulukon saa jaettua useampiin osiin, vaikka 100000-rivisen kymmeneksi 10000-riviseksi?

Terveisin
Huber

1

296

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      moduuliin...


      Sub LeikkaaJaSirrä()
      'leikkaa rivit 1-10000 uuteen taulukkoon Data1,Data2 jne
      'tiedot oletuksena Taulukossa Sheet1
      Sheets("Sheet1").Activate
      For i = 1 To 10
      Rows("1:10000").Cut
      Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Data" & i
      ActiveSheet.Paste
      Sheets("Sheet1").Activate
      Rows("1:10000").Delete Shift:=xlUp
      Next
      End Sub

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      640
      2944

    2. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      109
      1582

    3. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      72
      1556

    4. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1400

    5. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      116
      1307

    6. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      138
      1276

    7. Miltä ne katseet tuntui?

      😇
      Ikävä
      105
      1147

    8. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      138
      1061

    9. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      970

    10. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      949
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt