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

6512

    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. Mitään järkeä?

      Että ollaan erillään? Kummankin pää on kovilla.
      Ikävä
      127
      2034
    2. Noniin rakas

      Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi
      Ikävä
      102
      1845
    3. Kumpi vetoaa enemmän sinuun

      Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?
      Ikävä
      84
      1649
    4. Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä

      Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy
      Maailman menoa
      61
      1504
    5. Multa sulle

      Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M
      Ikävä
      33
      1182
    6. Ei se mene ohi ajan kanssa

      Näin se vaan on.
      Ikävä
      81
      1118
    7. Nainen, olen tutkinut sinua paljon

      Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm
      Ikävä
      53
      1105
    8. Tavoitteeni onkin ärsyttää

      Sua niin turhaudut ja unohdat koko homman
      Ikävä
      110
      1093
    9. Mies, eihän sulla ole vaimoa tai naisystävää?

      Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s
      Ikävä
      47
      1056
    10. Onko sulla empatiakykyä?

      Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet
      Ikävä
      44
      1013
    Aihe