Sarakkeista tiedot riveittäin

sedemik

Toin netistä osoitetietoja Exceliin ja ne ovat siellä nyt kaikki A-sarakkeessa (nimet, osoitteet, postinumerot...)
Nyt pitäisi siirtää henkilön jokainen tieto omaan sarakkeeseen (A-sarakkeessa on nimi, B-sarakkeessa on katuosoite, C-sarakkeessa on postinumero...)

Saakos tähän jonkilaisen järkevän makron tehtyä. Sellaisen osaan, jossa tietyn rivin solusta pystyy siirtämään tiettyn rivin tiettyyn soluun, mutta tämä pitäisi olla riippumaton rivinumerosta.

4

493

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • toi onnistu

      tuolla data-> text to columns toiminnolla...

      • sedemik

        Tämä olisi ollut sitten seuraava kysymys. Kiitos tästä. Mutta palaan vielä alkuperäiseen kysymykseeni.

        Mulla on siis tiedot nyt riveittäin:
        (A1) Martti
        (A2) Hämeenpolku 2
        (A3) 20100 Turku
        (A4)
        (A5) Heikki
        (A6) Hämeenpolku 7
        (A7) 30100 Tampere

        Ne pitäisi saada:
        (A1) Martti (B1) Hämeenpolku 2 (C1) 20100 Turku
        (A2) Heikki (B2) Hämeenpolku 7 (C2) 30100 Tampere

        Osoitetietoja on aikas paljon, joten en viitsi niitä manuaalisesti alkaa siirtelemään jos tähän olisi helpompikin vaihtoehto.


      • auttaako
        sedemik kirjoitti:

        Tämä olisi ollut sitten seuraava kysymys. Kiitos tästä. Mutta palaan vielä alkuperäiseen kysymykseeni.

        Mulla on siis tiedot nyt riveittäin:
        (A1) Martti
        (A2) Hämeenpolku 2
        (A3) 20100 Turku
        (A4)
        (A5) Heikki
        (A6) Hämeenpolku 7
        (A7) 30100 Tampere

        Ne pitäisi saada:
        (A1) Martti (B1) Hämeenpolku 2 (C1) 20100 Turku
        (A2) Heikki (B2) Hämeenpolku 7 (C2) 30100 Tampere

        Osoitetietoja on aikas paljon, joten en viitsi niitä manuaalisesti alkaa siirtelemään jos tähän olisi helpompikin vaihtoehto.

        tämä, laittaa tiedot sarakkeisiin B:D
        Sub muokkaa()
        Dim rng As Range
        Dim i As Long
        Dim j As Long
        Set rng = Cells(Rows.Count, 1).End(xlUp)
        j = 1
        For i = 1 To rng.Row Step 4
        Cells(j, "B").Resize(1, 3).Value = _
        Application.Transpose(Cells(i, "A").Resize(3, 1))
        j = j 1
        Next
        End Sub


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

    Luetuimmat keskustelut

    1. Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."

      Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww
      Suomalaiset julkkikset
      68
      5623
    2. Henkirikos Alakylässä

      Nainen löydetty elottomana, mies otettu kiinni. Mitä on tapahtunut?
      Seinäjoki
      61
      3764
    3. Suodatinpussin kastelemalla saa parempaa kahvia

      Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap
      Maailman menoa
      153
      2755
    4. Tidätkö nainen

      että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o
      Ikävä
      105
      2196
    5. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      109
      2045
    6. Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"

      Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-
      Suomalaiset julkkikset
      21
      1329
    7. Onkohan sinulla kaikki hyvin?

      Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...
      Ikävä
      38
      1297
    8. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      96
      1278
    9. Huikeeta, mahtavaa, ihan mielettömän upeeta

      Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M
      Kotimaiset julkkisjuorut
      195
      1232
    10. Viimeinen reissu tälle kesälle

      Pian se syksy on. Hyvää huomenta ja aurinkoista päivää. ☕🌞🍁🌻🐺❤️
      Ikävä
      173
      1146
    Aihe