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
160000 riviä dataa, miten käsitellä
DataLogger
1
296
Vastaukset
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ä.
Luetuimmat keskustelut
- 1121639
- 1051185
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 "Herro1381071- 49969
- 128857
Keitä oli kunnanjohtajan erottajat?
Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni50854Atte Harjanne usuttaa eläkeläisvihaan
Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v240838Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.
Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?70745Pridekulkue kiellettävä?
Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla178719Mä oon tyytyväinen, että ei ole enää tunteita.
Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu55699