Saako excelissä siirrettyä numeroita sisältävät solut omaan sarakkeeseensa jollain konstilla? Eli esim. jos solussa A1 on abcd, A2 1234, A3 efgh, A4 5678, niin abcd ja efgh jäisi sarakkeeseen A, mutta 1234 ja 5678 pitäisi siirtää sarakkeeseen B, jolloin sarake A jäisi tyhjäksi. Myös numeroita sisältävät solut ovat tekstimuodossa. Rivejä on satoja.
Numeroita sisältävien solujen siirtäminen omaan sarakkeeseensa
Anonyymi-ap
10
791
Vastaukset
- Anonyymi
Ja lisäkysymys. Saako tekstin eroteltua omaan sarakkeeseen ja numerot omaansa, jos solussa on useampi sana? Esim. solussa A1 on tekstimuodossa abcd efgh 1234, niin abcd efgh pitäisi siirtää soluun B1 ja 1234 soluun C1. Teksti ja numerosarjat ovat eri pituisia.
- Anonyymi
Näillä funktioilla saat tekstit ja numerot erilleen
Function tekstit(s As String)
If s = "" Then
tekstit = ""
Exit Function
End If
tx = Split(s, " ")
On Error GoTo eiluku:
For i = 0 To UBound(tx)
dummy = CDbl(tx(i))
Next i
If t = "" Then
tekstit = ""
Else
tekstit = Left(t, Len(t) - 1)
End If
Exit Function
eiluku:
t = t & tx(i) & " "
Resume Next
End Function
Function numerot(s As String)
If s = "" Then
numerot = ""
Exit Function
End If
tx = Split(s, " ")
On Error Resume Next
For i = 0 To UBound(tx)
t = t & CDbl(tx(i)) & " "
Next i
If t = "" Then
numerot = ""
Else
numerot = Left(t, Len(t) - 1)
End If
End Function - Anonyymi
Anonyymi kirjoitti:
Näillä funktioilla saat tekstit ja numerot erilleen
Function tekstit(s As String)
If s = "" Then
tekstit = ""
Exit Function
End If
tx = Split(s, " ")
On Error GoTo eiluku:
For i = 0 To UBound(tx)
dummy = CDbl(tx(i))
Next i
If t = "" Then
tekstit = ""
Else
tekstit = Left(t, Len(t) - 1)
End If
Exit Function
eiluku:
t = t & tx(i) & " "
Resume Next
End Function
Function numerot(s As String)
If s = "" Then
numerot = ""
Exit Function
End If
tx = Split(s, " ")
On Error Resume Next
For i = 0 To UBound(tx)
t = t & CDbl(tx(i)) & " "
Next i
If t = "" Then
numerot = ""
Else
numerot = Left(t, Len(t) - 1)
End If
End FunctionKiitos ohjeesta ja vaivannäöstä! Ei vaan taida omat taitoni riittää näiden käyttämiseen. Onko nämä VBA:n puolella käytettäviä funktioita?
- Anonyymi
Anonyymi kirjoitti:
Kiitos ohjeesta ja vaivannäöstä! Ei vaan taida omat taitoni riittää näiden käyttämiseen. Onko nämä VBA:n puolella käytettäviä funktioita?
Paina Alt+F11 –> aukeaa VBA-editori
Sieltä ylhäältä valitset Insert - Module –> Ilmestyy ikkuna Module1
Kopioi nuo funktiot sinne, minkä jälkeen niitä voi käyttää kuten muitakin Excelin funktioita.
Makroja sisältävä Excel-tiedosto on talletettava muodossa *.xlsm
- Anonyymi
Funktio ISNUMBER tunnistaa, onko solussa numero vai jotain muuta.
=IF(ISNUMBER(A1;A1;"") - tulostaa A1 arvon, jos se on numero
=IF(ISNUMBER(A1;"";A1) - tulostaa A1 arvon, jos se ei ole numero- Anonyymi
Kiitos! Mutta jostain syystä excel ilmottaa, että kaavassa on virhe. En tiedä, mitä teen väärin... Jollain excelistä löytyneellä funktiolla sain eriteltyä numeroita ja tekstiä sisältävät solut: TOSI tai EPÄTOSI, mutta itse teksti tai numerosarja ei tulostu soluun.
- Anonyymi
Anonyymi kirjoitti:
Kiitos! Mutta jostain syystä excel ilmottaa, että kaavassa on virhe. En tiedä, mitä teen väärin... Jollain excelistä löytyneellä funktiolla sain eriteltyä numeroita ja tekstiä sisältävät solut: TOSI tai EPÄTOSI, mutta itse teksti tai numerosarja ei tulostu soluun.
Sinulla on suomennettu Excel
https://fi.excelfunctions.eu
- Anonyymi
Mauaalisesti helppo tapa on seuraava, ei ihan mitä haluat
Valitset sarakkeen A
Data valinnasta Text to Colum ja vastaat kysymksiin. jos tekstit A-sarakkeessa
B1 soluun matriisikaava SHIFT+CTRL+ENTER (tekstit)
={TEXTJOIN("";TRUE;IF(ISERROR(MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)*1);MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1);""))}
C1 soluun matriisikaava SHIFT+CTRL+ENTER (numerot)
={TEXTJOIN("";TRUE;IFERROR((MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)*1);""))}
Keep EXCELing
@Kunde
Ketjusta on poistettu 2 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Perintovero 100 prosenttiin, työeläkkeet ja maataloustuet pois
Noilla eväillä lähden tasapainottamaan valtiontaloutta ja korjaamaan työntekijöiden palkkakuoppaa nostamatta työnantajie3536462Riikka runnoo: polttoöljyn hinta nousi maaliskuussa 40 prosenttia
Onko irvistelijällä sakset hävinneet, vai miksei osaa leikata polttoaineiden hintaa kansalaisten kukkarolle sopivalle ta734206Purra ryöväsi Marinin Itä.-Suomelle neuvottelemat EU-rahat
Perust vihaavat suomalaisia, mutta eritoten itäsuomalaisia. "Osa kaksikäyttörahoista on alun perin Itä- ja Pohjois-Suom433574Seida Sohrabi: Suomi ei ole rasistinen maa
Seidalta taas täyttä asiaa. Miksi punavihreät naiset eivät pysty samaan - no se ideologia estää. "Meillä on valitettava1323485Miksi persut hyökkäävät jatkuvasti henkilöitä päin?
Miksei persut yritä lainkaan korjata asioita, vaan koko ajan haukkuvat henkilöitä? Ei tuollaisilla turvanpieksäjillä ole953484Demariskandaali! Eveliina Heinäluoma (sdp) kahmii kaikki Hitas asunnot itselleen!
Heinäluoma on ostanut useita yhteiskunnan tukemia, hintasäännösteltyjä asuntoja itselleen! Ei ihme, että Hitas on ollut2453423Dannysta tulee isä 83-vuotiaana
Huh huh sentään sellaista naista, joka laitattaa itsensä paksuksi ikälopulle papalle ! Ajatellaanko lapsen oikeuksia oll843087Demarien sanoin kuvaamaton ahneus - Eveliina Heinäluoma vain yksi esimerkki
Mutta näin se on demari-eliitissä aina ollut, käytännössä siis nämä eliittiin kuuluvat ovat puhtaasti porvareita - Marin1042743Abdullah iski Citycenterin vessassa
Miksi näitä juttuja pitää lukea lähes päivittäin? https://www.hs.fi/helsinki/art-2000011913632.html2162457Pääsiäisen kunniaksi tekoälyn analyysi Riikka Purran kirjoituksesta
🧠 Mitä kirjoitus kertoo Riikka Purrasta? 1. Asenteellinen ja epäasiallinen sävy: Kirjoitus pursuaa halveksivaa, jopa a112318