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

272

Ää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. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      239
      4613

    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      76
      3055

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2463

    4. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      45
      1767

    5. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      28
      1703

    6. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      79
      1451

    7. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      85
      1285

    8. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      143
      965

    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      69
      948

    10. Sellainen tunne sydämessä

      Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,
      Ikävä
      86
      894
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt