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
780
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
- 996043
Riikan kukkaronnyöri on umpisolmussa
Kulutus ei lähde liikkeelle, koska kansalaiset eivät usko, että: – työpaikka säilyy – tulot eivät romahda – talous ei h804792Tanskan malli perustuu korkeaan ansioturvaan
Ja vahvoihin työllisyys- ja kotoutumispalveluihin. Suomessa Riikka on leikannut juuri näitä: palkkatukea, työttömyysturv963035Epäily: Räppäri yritti tappaa vauvansa.
https://www.mtvuutiset.fi/artikkeli/epaily-mies-yritti-tappaa-vauvansa/9300728 Tämä on erittäin järkyttävä teko täysin p282843Anteeksipyyntöni
Jätän tähän anteeksipyyntöni sinulle, koska en voi sanoa sitä missään muuallakaan. Pyydän anteeksi, jos purkamani tuska262105Sydämeni valtiaalle
En täältä aio asioita kysellä. Haluan tuoda tiedoksesi, että pohjimmiltani en ihmisiä tahdo satuttaa ja ajattelen muiden1191516Mikseivät suomalaiset kuluta? istutaan vaan säästötilirahojen päällä..
...Ihan haluamalla halutaan että maa menee konkurssiin? Ihan käsittämätöntä, ennätymäärät säästöjä sekä konkursseja sam3351067Oletko tyytyväinen
Tämän hetkiseen tilanteeseenne? Odotatko, että lähennytte vai yritätkö päästä yli ja eteenpäin?851028Jos oikeasti haluat vielä
Tee mitä miehen täytyy tehdä ja lähesty rohkeasti 📞 laita vaikka viestiä vielä kerran 😚125970- 48774