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
281
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
- 831236
Lavroville taitaa olla jo ikkuna raollaan?
Lavrovin syytä välttää korkeita paikkoja ja ikkunoiden läheisyyttä.Ettei vain keikahda ikkunasta pihalle.121699- 25645
Eikös se mene niin että Jumala loi maailman ihmisille eikä päinvastoin
joten saatana yrittää vääristää ja jota nyt vouhotetaan??? https://keskustelu.kaksplus.fi/threads/bovaer-tutkimuksissa-88454- 3341
Puuilo pittäis tulla Haapaveelle
Kaikki perskatti menee ylivieskaan ja ei Haapaveelle! Miksi ? Ylivieskaan on tullu monet liikkeet ja lissää tullee. Mitä38326Mies mä oon ihan helppo
Miehelle johon oon ihastunut. Olen harvoin ihastunut, mutta suhun olen. Ei tarvitse kuin pyytää, niin...13206- 1103
- 090
Mies olen aika erakko nykyään
Vanhentunutkin olen muutamana viime vuonna parikyt vuotta. Kun en ennenkään kelvannut, niin tuskin nytkään kelpaan. Lisä090