Solussa joko pelkkiä numeroita tai numeroita kirjaimia numeroiden perässä. Onnistuuko tekstifunktioilla välilyönnin lisääminen erottamaan kirjaimet ja numerot toisistaan. Onko solun lukumuodolla väliä? Kiittäen.
Numeroiden ja kirjainten erottaminen välilyönnillä
Alkulaku
4
1895
Vastaukset
- ewfewfewfewf
onnistuu toki.
ei ole- Aivolaku
No heti selkeni, kiitti!
- hyvääillanjatkoa
Aivolaku kirjoitti:
No heti selkeni, kiitti!
ajankulua pimeiden syysiltojen varalle. Ota selvää miten tuo kaava toimii. (Se toimii. Usko vaan)
Jos solussa A1 on 123abc, muuttaa kaava sen muotoon 123 abc. Ja sitten se kaava.
Kopioi kaava sitten muihin soluihin.
B1=HAKU(9,999999999E 307;--("0"&POIMI.TEKSTI(A1;MIN(KÄY.LÄPI({0;1;2;3;4;5;6;7;8;9};A1&"0 123456789"));RIVI($1:$30))))&" "&VAIHDA(A1;HAKU(9,999999999E 307;--("0"&POIMI.TEKSTI(A1;MIN(KÄY.LÄPI({0;1;2;3;4;5;6;7;8;9};A1&"0 123456789"));RIVI($1:$30))));"")
Koko tuo rimpsu pitää saada yhteen soluun
Lisättäköön vielä lopuksi, ettei ole minun käsistäni lähtöisin tuo. Vain "suomennos".
http://www.excelforum.com/excel-general/697894-seperating-text-from-numbers-in-a-cell.html hyvääillanjatkoa kirjoitti:
ajankulua pimeiden syysiltojen varalle. Ota selvää miten tuo kaava toimii. (Se toimii. Usko vaan)
Jos solussa A1 on 123abc, muuttaa kaava sen muotoon 123 abc. Ja sitten se kaava.
Kopioi kaava sitten muihin soluihin.
B1=HAKU(9,999999999E 307;--("0"&POIMI.TEKSTI(A1;MIN(KÄY.LÄPI({0;1;2;3;4;5;6;7;8;9};A1&"0 123456789"));RIVI($1:$30))))&" "&VAIHDA(A1;HAKU(9,999999999E 307;--("0"&POIMI.TEKSTI(A1;MIN(KÄY.LÄPI({0;1;2;3;4;5;6;7;8;9};A1&"0 123456789"));RIVI($1:$30))));"")
Koko tuo rimpsu pitää saada yhteen soluun
Lisättäköön vielä lopuksi, ettei ole minun käsistäni lähtöisin tuo. Vain "suomennos".
http://www.excelforum.com/excel-general/697894-seperating-text-from-numbers-in-a-cell.htmlsoluun mihin haluat tuloksen esim. solusta C2 =Erottele(C2)
ja moduuliin...
(virhetarkastelu puuttuu kun ei tarkempaa selostusta tarpeista) antaa nyt virheilmoituksen kun solu on tyhjä tai sarjassa ei ole numeroa alussa.
Function Erottele(txt As String) As Variant
If IsNumeric(txt) Then
Erottele = Val(txt)
Exit Function
End If
With CreateObject("VBScript.RegExp")
.Pattern = "-?\d "
Erottele = .Execute(txt)(0)
Erottele = Erottele & " " & Mid(Range("C2"), Len(Erottele) 1)
End With
End Function
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois
Suomi saadaan eheytettyä kädenkäänteessä, kun uskalletaan tehdä rohkeita ratkaisuja. Maatalous- ja yritystuet ovat hait1343896Hei! Halusin vain kertoa.
En tiedä luetko näitä, mutta näimme n.4vk sitten, vaihdoimme muutaman sanan ja tunsin edelleen kipinän välillämme. Katso83299Riikka on siis suomalaisille velkaa 84 mrd
Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai382907Miksi ikävä ei helpotu vuosien jälkeenkään?
Tänään olin ensimmäistä kertaa sinun lähtösi jälkeen tilassa, jossa vuosia sitten nähtiin ensimmäistä kerta. Ollessani122812Sanna on suomalaisille siis velkaa 24 mrd euroa
Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl1372479- 502114
"Sanna Marinin kirja floppasi", kertoo eräs median otsikko
"Miljardien tappio - Sanna Marin vaikenee", kertoo toinen otsikko. Marin ei siis siinä kirjassaan kerro sanallakaan For951286Tiesitkö? Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi seksuaalirikollinen
Järkyttävää… Motin mukaan Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi yksityiselämässään syyllistynyt es631266Luotathan siihen tunteeseen, joka välillämme on?
Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist131202Oot kyl rakas
Et tiiäkkään miten suuri vaikutus sulla on mun jaksamiseen niin töissä, kun vapaallakin❤️. Oot täysin korvaamaton. En t361139