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
729
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
Karhuryhmä
Kellään tarkempaa tietoa miksi ja missä karhuryhmä ollut? Perheväkivaltaa vai huumeperintää kenties taas?283345- 953120
- 762994
Raisionkaaren koira hyökkäys
Taas nähtiin että koiriin ei voi luottaa. Eilen illalla vapaana ollut koira hyökkäsi Raisionkaarella kolmen henkilön kim682917"Mielipide: Äärivasemmiston uhka on otettava vakavasti"
Demokratia näyttäisi olevan Halla-aholle enemmänkin välttämätön paha kuin tavoiteltava asia. Väkivallan ihannointi ja m522862Tapa jolla kohtelit minua viimeksi miellytti erityisesti
Osaat huomioida kauniisti ja katsot aina tilanteita yhteisen hyvän kannalta. Sitä arvostan erityisesti.862632- 352450
- 572311
Satuit vain olemaan
Ensimmäinen joka avasi minussa sen nähdyksi ja rakastetuksi tulemisen puolen. Pitäisi vain muistaa että et ole ainoa. Se412147- 321933