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
      67
      5331
    2. Henkirikos Alakylässä

      Nainen löydetty elottomana, mies otettu kiinni. Mitä on tapahtunut?
      Seinäjoki
      57
      3565
    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
      150
      2651
    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
      2136
    5. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      89
      1822
    6. 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
      1277
    7. 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
      1269
    8. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      96
      1228
    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
      1202
    10. Viimeinen reissu tälle kesälle

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