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ä
4
1617
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
- 1582639
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1351976Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1081846- 731500
- 801466
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet241452- 2271100
- 65969
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv230942- 73920