teksti sarakkeisiin

pom

Pitäisi saada b-sarakkeessa oleva teksti sarakkeisiin, niin että muotoilut säilyisivät. Erottimena toimii välilyönti.

"Teksti sarakkeisiin" ja "poimi.teksti" poistaa muotoilut...

Kiitos avusta!

5

797

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • paavali50

      Kopioi ensin B-sarakkeen muotoilut niihin sarakkeisiin joihin teksti "leviää".
      Joko Kopioi -> liitä määräten -> muotoilut ja OK, tai muotoilusiveltimellä.
      Sitten vain teksti sarakkeisiin..

    • kunde

      moduuliin...

      Sub TekstiSiirto()
      Dim vika As Integer
      Dim a As Variant
      On Error Resume Next
      Application.ScreenUpdating = False
      vika = Range("B65536").End(xlUp).Row
      For Each solu In Range("B1:B" & vika)
      a = Split(solu, " ") ' erottimena välilyönti
      For i = 1 To UBound(a) 1
      solu.Copy
      solu.Offset(0, i 1).PasteSpecial Paste:=xlPasteFormats
      solu.Offset(0, i 1) = a(i - 1)
      Next
      Next
      Application.CutCopyMode = False
      Application.ScreenUpdating = True
      End Sub

      • pom

        toiminut kummallakaan tavalla niin kuin piti...

        B-sarakkeessa oleva teksti on lyhenteitä (1-4 kirjainta ja lyhenteitä on 21 kpl), jotka on muotoiltu eri värein. Eli samassa "rimpsussa" saattaa olla useita värejä. Värien järjestys ei ole sama joka rivillä.
        Nyt molemmat tavat muotoili tekstin ensimmäisen lyhenteen mukaan.

      • kunde
        pom kirjoitti:

        toiminut kummallakaan tavalla niin kuin piti...

        B-sarakkeessa oleva teksti on lyhenteitä (1-4 kirjainta ja lyhenteitä on 21 kpl), jotka on muotoiltu eri värein. Eli samassa "rimpsussa" saattaa olla useita värejä. Värien järjestys ei ole sama joka rivillä.
        Nyt molemmat tavat muotoili tekstin ensimmäisen lyhenteen mukaan.

        etpähän maininnut alkujaan, että solussa useampi muotoilu...
        no nyt koodi tekee haluamasi

        Sub TekstiSiirto()
        Dim vika As Integer
        Dim a As Variant
        Dim Alku As Integer
        Dim Pituus As Integer
        On Error Resume Next
        Application.ScreenUpdating = False
        vika = Range("B65536").End(xlUp).Row

        For Each solu In Range("B1:B" & vika)
        a = Split(solu, " ") ' erottimena välilyönti
        Alku = 1
        For i = 1 To UBound(a) 1
        Pituus = Len(a(i - 1))
        väri = solu.Characters(Start:=Alku, Length:=Pituus).Font.ColorIndex
        solu.Offset(0, i) = a(i - 1)
        solu.Offset(0, i).Characters(Start:=1).Font.ColorIndex = väri
        Alku = Alku Pituus 1
        Next
        Next
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
        End Sub

      • pom
        kunde kirjoitti:

        etpähän maininnut alkujaan, että solussa useampi muotoilu...
        no nyt koodi tekee haluamasi

        Sub TekstiSiirto()
        Dim vika As Integer
        Dim a As Variant
        Dim Alku As Integer
        Dim Pituus As Integer
        On Error Resume Next
        Application.ScreenUpdating = False
        vika = Range("B65536").End(xlUp).Row

        For Each solu In Range("B1:B" & vika)
        a = Split(solu, " ") ' erottimena välilyönti
        Alku = 1
        For i = 1 To UBound(a) 1
        Pituus = Len(a(i - 1))
        väri = solu.Characters(Start:=Alku, Length:=Pituus).Font.ColorIndex
        solu.Offset(0, i) = a(i - 1)
        solu.Offset(0, i).Characters(Start:=1).Font.ColorIndex = väri
        Alku = Alku Pituus 1
        Next
        Next
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
        End Sub

        huono alustus!

        Nyt tekee mitä pitääkin. Suuret kiitokset!

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. IL - Kansanedustaja tehnyt ITSEMURHAN eduskuntatalossa!!

      "IL:n tiedot: Kansanedustaja tehnyt itsemurhan Eduskuntatalossa Iltalehden tietojen mukaan kansanedustaja on tehnyt its
      Maailman menoa
      412
      9056

    2. Eemeli Peltonen teki itsemurhan eduskuntatalossa

      Kevyet mullat sitten vaan. Ei mulla muuta.
      Maailman menoa
      189
      3630

    3. Kuka pistetty kylmäksi

      Ketähän joutunu puukkohipan uhriksi? Tietääkö kukkaan?
      Kajaani
      20
      2083

    4. Mietin että

      Onko tarinallamme vielä luvussa tilaa kohtaamiselle vai jääkö se tähän.
      Ikävä
      82
      1290

    5. Postilaatikoista

      Tuntuu kaikki tietävän tekijän/tekijät, mutta miksi nimiä ei julkaista???
      Kihniö
      27
      1115

    6. Oletko samaa mieltä

      Että on parempi olla erillään?
      Ikävä
      75
      1100

    7. Sylikkäin.

      Sylikkäin, suudellen. Milloin haluaisit näin nainen tehdä ? Vain häntä ajatellen 😘. Tietenkin jos häntä asia kiinnosta
      Ikävä
      66
      1092

    8. Eemeli Peltosen viimeinen postaus Facebookissa!

      "Olen ollut kevätistuntokauden viimeisillä viikoilla paljon poissa eduskuntatyöstä. Sain toukokuussa hyvää hoitoa HUSiss
      Maailman menoa
      79
      1065

    9. Nainen arvaa kuka

      En ikävä kyllä elä enää pitkään
      Ikävä
      55
      1033

    10. Sano nyt kiertääkö

      Huhut meistä tai jostain muusta?
      Ikävä
      66
      972
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt