Osoite kahdelle sarakkeelle

bibelot

Minulla on osoitteita yhdellä sarakkeella (katuosoite postitoimipaikka). Ne pitäisi saada eroteltua niin, että yhdellä sarakkeella olisi katuosoite ja postitoimipaikka toisella.
Ongelmana on, että katuosoitteet ja ostitoimipaikat ovat eri pituisia joten niiden käsittely pituuden mukaan ei onnistu. Tai ainakaan minä en osaa.
Osaisiko joku neuvoa noviisia?

6

438

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • MS

      Klikkaa koko katuosoite postitoimipaikka pystysarake aktiiviseksi
      Klikkaa teksti sarakkeisiin
      Kiinteä leveys ( postinumerot samanpituisia suomessa )
      Voit pystyssäolevan nuuolen avulla päättää mistä kohdasta solu jaetaan
      Muista valita kaikki solut tekstiksi ettei postinumeroista katoa etunollat

      • muuan mies

        Voipi olla tekemätön paikka, jos osoite on esim:
        "Urho Kekkosenkatu 155 A 42 65380 Vanha Vaasa" ilman pilkkuja tai muita erottimia. Välilyöntejä on liikaa, jotta teksti sarakkeisiin pystyisi löytämään postinumeron, mistä taas pääsisi palastelemaan osoiterimpsun kolmeen sarakeeseen.
        Ihminen näkee katkaisukohdat, mutta excel ei ilman Kunden koodia...

    • kunde

      "Ihminen näkee katkaisukohdat, mutta excel ei ilman Kunden koodia..."
      ;-)

      osoitteet nyt C1:Cxx ja purkaa katuosoitteen D- sarakkeeseen ja postitoimipaikan numeroineen E -sarakkeeseen

      moduuliin...

      Sub PuraOsoitteet()
      Dim i As Long
      Dim Postinumero As Integer
      Dim solu As Range
      Dim vika As Long
      vika = Range("C65536").End(xlUp).Row
      For Each solu In Range("C1:C" & vika)
      For i = Len(solu) To 1 Step -1
      If IsNumeric(Mid(solu, i, 1)) Then
      Postinumero = Postinumero 1
      End If
      If Postinumero = 5 Then
      solu.Offset(0, 1) = Left(solu, i - 1)
      solu.Offset(0, 2) = Mid(solu, i)
      Exit For
      End If
      Next
      Postinumero = 0
      Next
      End Sub

      Keep EXCELing
      @Kunde

      • Sebas

        Miten tuota koodia pitää muuttaa, että se erottaa postinumero ja postitoimipaikan yhdestä solusta 2 kahteen soluun? Arvojen välillä on välilyönti (00100 Helsinki).

        Kiitos!

      • kunde
        Sebas kirjoitti:

        Miten tuota koodia pitää muuttaa, että se erottaa postinumero ja postitoimipaikan yhdestä solusta 2 kahteen soluun? Arvojen välillä on välilyönti (00100 Helsinki).

        Kiitos!

        Sub PuraOsoitteet()
        Dim i As Long
        Dim Postinumero As Integer
        Dim solu As Range
        Dim vika As Long
        vika = Range("C65536").End(xlUp).Row
        For Each solu In Range("C1:C" & vika)
        For i = Len(solu) To 1 Step -1
        If IsNumeric(Mid(solu, i, 1)) Then
        Postinumero = Postinumero 1
        End If
        If Postinumero = 5 Then
        solu.Offset(0, 1) = Left(solu, i - 1)
        solu.Offset(0, 2).NumberFormat = "@"
        solu.Offset(0, 2) = Mid(solu, i, 5)
        solu.Offset(0, 3) = Mid(solu, i 6)
        Exit For
        End If
        Next
        Postinumero = 0
        Next
        End Sub

    • Sebas

      Kiitos vastauksesta!

      Sain toimimaan myös Split() -funktiolla:

      Sub PuraOsoitteet()

      erotus= Split(Range("C1").Value, " ")
      postinumero= erotus(0)
      postitoimipaikka = erotus(1)
      Cells(1, 4) = postinumero
      Cells(1, 5) = postitoimipaikka

      End Sub

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      148
      2879

    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      367
      2037

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      40
      1767

    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      37
      1722

    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      32
      1411

    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      94
      1213

    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1173

    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      328
      955

    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      110
      938

    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      782
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt