Ensimmäisen merkin (heittomerkki) poistaminen kaikista soluista

Pena696

Miten pystyn poistamaan suuresta Excel-luettelosta heittomerkit? Heittomerkki löytyy jokaisesta solusta kirjain/numerosarjan ensimmäisenä merkkinä.

Taulukko on minulle tällaisenaan käyttökelvoton, enkä ole löytänyt sopivaa toimintoa, jonka perusteella voisi luoda toimivan makron.

8

6547

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Pena696

      Ne heittomerkit näkyy vasta siellä funktiokentässä tai kaksoisklikkaamalla solua. Eli siis heittomerkkejä ei näy "ei aktiivisesta" solusta ennen kuin sitä kaksoisklikkaa tai klikkaa niin, että solun teksti tulee näkyviin funktiokentässä.

    • tätä

      kirjoita soluun 1,copy->paste special->multiply

      • Pena 696

        tunnu toimivan, ei. Tiedä sitten ymmärsinkö oikein mitä tarkoitit...


    • Excelisti

      Ehdotettu kertosysteemi ei ehkä toimi vanhoilla Excel-versioilla. Se myös laittaa tyhjiin soluihin nollan.

      Se helkkarin heittomerkki kummittelee joissakin työkirjoissa jos ne on siirretty Lotus123-työkirjasta Exceliin. Muistaakseni heittomerkki on vanha Lotuksen muotoilumerkki (viimeksi käytin Lotusta viisitoista vuotta sitten).

      Oheinen makro toimii ainakin nopeasti tutkittaessa. Kunde varmasti osaisi tehdä paremman mutta kun se on nyt lomalla ;)

      Sub StrToDbl()
      Dim Solu As Range
      For Each Solu In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
      On Error Resume Next
      If Solu Empty Then Solu.Value = CDbl(Solu.Value)
      Next Solu
      End Sub

      • Excelisti

        Tämä on edellistä parempi. Se ottaa myös tyhjissä soluissa olevat heittomerkit jos on.

        Sub StrToDbl()
        Dim Solu As Range
        For Each Solu In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
        Solu.Value = CVar(Solu.Value)
        Next Solu
        End Sub


      • Pena696
        Excelisti kirjoitti:

        Tämä on edellistä parempi. Se ottaa myös tyhjissä soluissa olevat heittomerkit jos on.

        Sub StrToDbl()
        Dim Solu As Range
        For Each Solu In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
        Solu.Value = CVar(Solu.Value)
        Next Solu
        End Sub

        Suurkiitokset!

        Tästä oli suuri apu. Hienoa, että jollain on homma hallussa!


      • Anonyymi
        Excelisti kirjoitti:

        Tämä on edellistä parempi. Se ottaa myös tyhjissä soluissa olevat heittomerkit jos on.

        Sub StrToDbl()
        Dim Solu As Range
        For Each Solu In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
        Solu.Value = CVar(Solu.Value)
        Next Solu
        End Sub

        Osaako joku kertoa mistä löydän yllä olevaan esimerkin tekoon todella simppelit suomenkieliset ohjeet tuon makron tekemiseen. En ole ikinä itse makroa tehnyt, töissä olen toki valmista käyttänyt. Ymmärrän ettei tätä voi oppia yhdessä yössä. Kysyn siis vain mistä kannattaa lähteä liikkeelle. Haluan tämän oppia ja olen sen eteen valmis näkemään reilusti vaivaakin.
        -Kiitos ja kumarrus pienistäkin vihjeistä.


      • Anonyymi
        Anonyymi kirjoitti:

        Osaako joku kertoa mistä löydän yllä olevaan esimerkin tekoon todella simppelit suomenkieliset ohjeet tuon makron tekemiseen. En ole ikinä itse makroa tehnyt, töissä olen toki valmista käyttänyt. Ymmärrän ettei tätä voi oppia yhdessä yössä. Kysyn siis vain mistä kannattaa lähteä liikkeelle. Haluan tämän oppia ja olen sen eteen valmis näkemään reilusti vaivaakin.
        -Kiitos ja kumarrus pienistäkin vihjeistä.

        Paina Alt f11
        Yläpalkista Insert-Module
        Kopioi yllä oleva makro äsken ilmestyneeseen ikkunaan.

        Makron saa ajettua, kun kursori on jollain sen rivillä ja painaa f5. Se tekee nuo muutokset ko. työkirjan aktiivisena olevalla välilhdellä.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Olet hirvein ihminen kenet olen tavannut.

      Olet järkyttävä.
      Ikävä
      121
      2332
    2. Teemu Keskisarja (ps) loisti- ja hurmasi MTV:n tentissä.

      https://www.mtvuutiset.fi/artikkeli/kommentti-keskisarja-sekoitti-pakan-suomiareenan-puheenjohtajatentissa/9180380 Kuten
      Maailman menoa
      429
      2193
    3. Sinun ja kaipaamasi törmääminen

      Missä sinä haluaisit sen satunnaisen kohtaamisen mieluiten tapahtuvan?
      Ikävä
      98
      1190
    4. Ammuskelua Eliaksenkadulla

      Mikä homma? Hirven metsästykseen vielä lähemäs 3kk. Oliko lie puuman metsästystä..?
      Tornio ja Haaparanta
      13
      995
    5. Haluan sua ihan vtullisen paljon

      Kokonaan ja seksuaalisesti. Pää räjähtää kohta
      Ikävä
      45
      839
    6. Kamalaa! Ketä tappoi vanhempansa Huittisissa? Ketkä tapettiin?

      Kamalaa! Ketä tappoi vanhempansa Huittisissa? Ketkä tapettiin? Shokki!
      Huittinen
      16
      807
    7. Olen pahoillani jos kärsit.

      Mutta meidän välejä ei voi korjata. Rakastin sua tiedoksi. Älä tee itelles mitään vaan hae apua.
      Ikävä
      34
      800
    8. Ymmärrätköhän nainen

      Etten halua että ottaisit sitä suuhusi. Minusta se on ällöttävää, vaikka kivalta se kai tuntuisi, mutta vain minusta. Mi
      Ikävä
      109
      786
    9. Sinkkujen lapset ja kesäloman pituus

      Tuli mieleeni kysyä oletteko huolissanne lasten ja nuorten tulevaisuudesta, tai siitä mitä he nyt joutuvat kokemaan yhte
      Sinkut
      167
      717
    10. Luvattiin työpaikka, mutta mitään ei kuulukaan

      Kuinka yleistä tällainen on? Ehdin jo iloita työpaikasta, turhaan, kun mitään ei kuulukaan työnantajasta, joka ilmoitti
      Työn hakeminen
      33
      715
    Aihe