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

144

    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ä.

    Luetuimmat keskustelut

    1. Kalajoen hukkuneet pojat olivat tummaihoisia

      Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell
      Maailman menoa
      320
      6953
    2. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      69
      4096
    3. Sinä eräs, pyydän......

      AUTA mua ole kiltti. Ei mun takia vaan.... Miten saan sut kiinni?
      Ikävä
      208
      3135
    4. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      2887
    5. Nimikirjaimet

      Kuka kaipaa ketä 🥰
      Ikävä
      74
      1942
    6. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      148
      1739
    7. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      210
      1722
    8. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      165
      1550
    9. Minkä asian haluaisit muuttaa kaivatussasi?

      Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?
      Ikävä
      120
      1538
    10. Mies, ajattelemmekohan toisiamme juuri nyt?

      Olet mielessäni, vanhempi mies
      Ikävä
      89
      1428
    Aihe