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
817
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
On tiedossa, että venäjämieliset diggaavat diktatuurista venäjää
jossa ei esim. ole sanan- ja lehdistönvapautta. Mutta keitä nämä venäjän palvojat sitten ovat, ei heitä toki paljon ole192196Vihreiden, SDP:n ja Vasemmistoliiton kannattajista selvästi alle puolet on miehiä
ja silti joku punafeministi valitti kokoomuksen naiskannattajien puutteesta, vaikka siellä on enemmän naisia kuin punavi392085Belfastissa käynnissä kunnon persuilu
Joku random mamu tekee rikoksen, niin sikäläiset naamiopersut kostavat tuhoamalla kantaävestön omaisuutta. Liekö siellä301989Persujen kannatusromahdus tekee kesästä 2026 nautinnollisen
Satoi tai paistoi, niin Suomen kansalaisella on kuluvana kesänä syytä hymyyn. Niin upealta tuntuu persujen kannatusroma471396- 741336
Onko kaivattusi rohkeampi kuin sinä?
Vai oletko sinä rohkeampia? Mikä on rohkea teko, minkä sinä tai kaivattusi on tehnyt? Mitä siitä seurasi?46883Kaunein nimi
Mikä on mielestäsi kaunein miehen ja naisen nimi? Haluaisitko itse olla joku toisen niminen?56812Farmi-Amski ja Jucci Hellström - Sydämiä satelee - Onko tässä jotain enemmän?
Amskidamski Anne-Mari Tarkkio ja Jucci Hellström olivat samaan aikaan Farmi Suomi -realityssä. Nyt somessa on nähty mat8751- 52733
Rakastan sinua hiljaisuudessa
Rakastan sinua hiljaisuudessa. Olisit minun tai et, olen odottanut sinua vuosisatojen ajan. Ilman sinua sydämeni on yksi32708