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
292
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
Kansalla on oikeus tietää miksi persut pettävät
Koko kulunut hallituskausi on kysytty persuilta, minkä vuoksi he ovat pettäneet käytännössä jokaisen vaalilupauksen, ain607512Venäjän armeijan evp-upseeri: Armeija surkeassa tilassa, jonka läpäisee kaiken kattava
valehtelu. Venäläiset alkaneet pohtia julkisesti maan todellisia tappioita. Z-bloggari ja 3. luokan kapteeni (evp.) Mak1232936- 1421776
Kansalla on oikeus tietää mikä on SDP:n talousohjelma jolla maan talous
saadaan nousuun? Miksi puolue piilottelee sitä, vai eikö sitä ole? Tähän asti olemme vaan saaneet kuulla hallituksen ha651649Ammattiliitto 900 euroa/vuosi - Työttömyyskassa 72 euroa/vuosi
Ammattiliitosta eroamalla voi säästää jopa 800 euroa vuodessa. Mitä enemmän tienaat, sitä enemmän maksat liitolle. Esim1151458Miten voit olla niin tyhmä
että et tajunnut että sua vedätettiin? Tietäisitpä miten hyvät naurut on saatu. Naiselle1671404- 1311153
- 77853
Kyriake=Kirkko
Kirkko, Kyriake Kirkko-sana tulee kreikankielen sanasta Kyriake=Herran omat, Kristuksen omaksi kastettujen suuri joukko47802- 52745