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

509

    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. Putin lähti takki auki sotaan....

      Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,
      Maailman menoa
      139
      3877
    2. Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista

      ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv
      Maailman menoa
      336
      2792
    3. Ulkoistin makuaistini Yleisradiolle

      Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,
      Maailman menoa
      1
      2219
    4. Sanna on pakottaja, domina

      Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k
      Maailman menoa
      45
      2073
    5. Skodan hankintaan painostaminen toi potkut

      Kylläpä on kovat keinot käytössä, kun on yritetty pakottaa hankkimaan Skoda painostuskeinoilla. Kyllä valinnan pitää oll
      Skoda
      14
      1803
    6. No onneks ei tartte sit olla

      Mustis ku se ootki sinä itte 😂😂 Oon pelännyt että ehkä teille kehkeytyy jotain enemmän ku niin paljon yhteistä mut....
      Ikävä
      11
      1595
    7. Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua

      Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle
      Maailman menoa
      147
      1321
    8. Harmittaa ettei paluuta entiseen enää ole

      Paluuta entiseen ei ole koska pilasit kaiken.
      Ikävä
      93
      1232
    9. Lahden kolarisuma ja automaattinen hätäjarrutusjärjestelmä

      Olisiko uudehkojen autojen automaattinen hätäjarrutusjärjestelmä vähentänyt kolareiden määrää tuolla Lahden tiellä? Sumu
      Yleistä autoilusta
      90
      1053
    10. Mitä sun päässä oikeen liikkui

      Silloin kun menit laittamaan sille viestiä? Jotenkin tosi outoa?
      Ikävä
      54
      1031
    Aihe