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
787
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
"Miko Bergbom, miksi euron bensa maksaa kaksi euroa?"
Valtakunnan suurin kaupallinen porvarimediakin kyselee nyt miksi perussuomalaisset ovat rikkoneet tärkeimmän vaalilupauk1816539Olen Päivi Räsäsen puolella
En oe uskovainen enkä kristillisdemograattikaan mutta onhan tuo naurettavaa laittaa Päivi syylliseksi omasta mielipit6933993SDP: "On hyvä että bensiinin hinta nousee"
Suurin oppositiopuolue SDP on mielissään siitä, että bensan hinta nousee suomalaisille. https://www.iltalehti.fi/polit1473286Nuhteettomia edustajia
Korkein oikeus tuomitsi Päivi Räsäsen kiihottamisesta kansanryhmää vastaan Kansanedustaja Päivi Räsästä (kd.) vastaan no3813044Mistä ihmeestä sitä viirasi?
Oliko tuo Timo Kalima hyvä silmälääkäri? Mikähän hänen silmiinsä osui kun piti mennä tuollaista tekemään. Kaikki näytti242664"Mieheksi ja naiseksi hän heidät loi."
Räsäsen tuomio on iso harppaus woke-valtioksi. – Tässä maassa on nyt selvästi kiellettyjä sanoja ja ajatusrikoksia. –1632085Päivi Räsänen tuomittiin rikoksesta...
...kiihottamisesta kansanryhmää vastaan. Tuskin tajuaa silti vieläkään, että raamattu ei ole lakikirja. https://yle.fi/a7091959SDP haluaa tappaa maaseudun - bensan hinta mahdollisimman korkealle
Maaseudulla auto on välttämätön asia, ja lähes kaikilla on bensa-autot. Kuinka tyhmä pitää olla jos äänestää demareita?711613Partamies hoi!
En aio häiritä jos on mukavampi olla hiljaa tai jos siellä kaukana sinun paikkakunnalla on jo joku hoito. Miten olisi re331580Korkein oikeus antaa Räsäselle vastauksen klo 9. Varmaan vapautus
Miten veikkaat että Päiville käypi? Päivi pitää lehdistökonferenssin klo 9.30. Koko media on läsnä. 7 v taistelu on ohii5121576