Merkkien vaihtaminen solussa?

Anonyymi

Haluan vaihtaa solujen tietyt merkit toisiin. Esim, jos solussa on abc, niin haluan vaihtaa a-kirjaimet kirjaimeen z, b-kirjaimet kirjaimeen x ja c-kirjaimet kirjaimeen y.
Eli abc näkyisi uudessa solussa muodossa xyz. Löysin KORVAA toiminnon, mutta sillä saa vaihdettua vain yhden merkin kerrallaan.

4

200

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Melkein tuohon kannattaa oma funktio kirjoittaa.

      • Anonyymi

        Sub vaihda()
        ' Vaihtaa valitulla alueella vanhat merkit vastaaviin uusiin.
        vanha = Split("a b c", " ")
        uusi = Split("x y z", " ")
        Dim solu As Range
        For Each solu In Selection
        For i = 0 To UBound(vanha)
        Debug.Print vanha(i) & " " & uusi(i)
        solu.Value = WorksheetFunction.Substitute(solu, vanha(i), uusi(i))
        Next i
        Next
        End Sub


    • Anonyymi
    • ilman turhia luuppauksia

      Sub Korvaa()
      Dim originaalit As Variant
      Dim korvaavat As Variant
      Dim x As Long
      originaalit = Array("A", "B", "C", "a", "b", "c")
      korvaavat = Array("X", "Y", "Z", "x", "y", "z")
      For x = LBound(originaalit) To UBound(originaalit)
      Selection.Replace What:=originaalit(x), Replacement:=korvaavat(x), _
      LookAt:=xlPart, MatchCase:=True
      Next
      End Sub

      Keep EXCELing
      @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mitä hyvää rikkaiden hyysääminen Suomelle tuonut?

      Minäpä vastaan: ei yhtikäs mitään, vaan pelkkää vahinkoa. Demareiden ansiosta Suomen valtio oli käytännössä vielä 1980-
      Maailman menoa
      23
      7306
    2. Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"

      Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite
      Maailman menoa
      94
      5968
    3. Tytti Tuppurainen häpäisi Suomen epäisänmaallisella lausunnollaan USA:n ulkoministerille Rubiolle.

      https://www.is.fi/politiikka/art-2000011816267.html Miksi Tytti Tuppurainen päästetään antamaan typeriä lausuntoja noin
      Maailman menoa
      110
      4009
    4. Mitä haluaisit sanoa tänään hänelle?

      Rakastamallesi ihmiselle.
      Ikävä
      141
      3984
    5. Pystyisitkö olla

      Kanssani kaiken sotkun jälkeen? Ainakaan tunteet ei ole loppuneet
      Ikävä
      163
      1793
    6. Paras muistosi

      kaivatustasi?
      Ikävä
      58
      1628
    7. Miksi miehen on hankala ymmärtää

      Että hänen on tehtävä aloite. Niin sen kuuluu mennä luonnollisesti.
      Ikävä
      131
      1530
    8. Hei kuule nainen

      Seuraavan kerran kun nähdään, puhu minulle jooko! Näin toivoo mies
      Ikävä
      38
      1341
    9. Mitä sä musta oikein haluat?!

      Anna olla jo.
      Ikävä
      28
      1321
    10. Mitä puuhailet nyt ystävänpäivänä

      nainen, kun et ole mun kanssa?
      Ikävä
      45
      1312
    Aihe