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
1917
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
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä1211296Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa373823Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1092989Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie1042331Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin701986Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh1941731Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.298979Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta17760Toisten elämän moralisointi
Eikö kukin voisi keskittyä lähinnä omaan elämäänsä? Jos jollakulla muulla on tunteita, ajatuksia, tai tekoja oman suhte143705- 53679