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
1874
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
Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu842139Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä
Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu4262030Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä771402Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1101400- 671293
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien.
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien. Norjassa on käynnissä ve1071035Haluatko tietää totuuden?
Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun811002Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan
Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut256990Sofia Virta pyyhkii pöytää Keskisarjalla A studiossa
Hurjaa on meno. Keskisarja ihan kanveesissa.266987- 131888