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

184

    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. Suomen kansa haluaa Antti Lindtmanista pääministerin

      Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http
      Maailman menoa
      245
      4452
    2. Vain 21% kannattaa Lindtmania pääministeriksi

      se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?
      Maailman menoa
      123
      2899
    3. Miten löydän sinut

      Ja saan sanottua kaiken mitä haluan sinulle kertoa? Ja kuinka kuuntelisit minua sen hetken? Kuinka voin ilmaista sen mit
      Ikävä
      41
      2652
    4. Yöllinen autolla kaahari Heinolan seudulla

      Asukkaita häiriköivän nuoren herran autokaahaus keskustelu poistettu, onko jokin hyvävelijärjestelmä käytössä ?
      Heinola
      81
      1644
    5. Vaikea tilanne

      Hieman kolkuttaa omatuntoa, kun on osoittanut kiinnostusta väärää naista kohtaan. En ymmärrä miten toinen on voinut te
      Ikävä
      116
      1528
    6. Milloin kaivatullasi

      .. on nimipäivä?
      Ikävä
      50
      1238
    7. Kehtaisitko näyttäytyä

      kaivattusi seurassa?
      Ikävä
      85
      1164
    8. Julkinen sektori on elänyt aivan liian leveästi yli varojensa!

      Viimeisen 15 vuoden aikana julkisen puolen palkat ovat nousseet n. 40%, kun taas yksitysellä sektorilla vain n. 20%. En
      Maailman menoa
      203
      1054
    9. Ne viimeiset kerrat

      Kun katsoit minua niin lämpimästi. En unohda sitä ❤️
      Ikävä
      59
      1003
    10. Missä kunnassa kaivattusi asuu

      Kuinka tarkkaa uskalla sanoa?
      Ikävä
      45
      996
    Aihe