Excel másolás
2010-01-13T18:22:04+01:00
2010-01-13T22:20:53+01:00
2022-07-24T19:30:31+02:00
Bozoka
Sziasztok!

Nagyon kezdő excel-es vagyok biztos hülye kérdés lesz...

A probléma. Van 2 oszlopom. Külön munkalapon. Az első oszlop 16X hosszabb mint a második. Nekem arra lenne szükségem, hogy a második oszlopot átmásoljam az első oszlopba. De! 16 lépésenként. Tehát ami a második oszlopban van egymás alatt az az első oszlopban 16 cellánként következne.
Ha leszűrüm az első oszlopot akkor jó is lenne a bemásolás ha engedné és figyelmen kívül hagyná azt ami nincs a szűrésben. De ott van csak nem látható...

Előre is köszi a segítséget!

Bozo
Mutasd a teljes hozzászólást!
ha valami nem sikerül, akkor csak szólj

esetleg ha a konkrét cellatartományt is megadod, akkor átírhatom én is
Mutasd a teljes hozzászólást!

  • a megoldás egyszerűbb, mint hinnéd :)

    tehát a van pl az "A" oszlopod

    ezt a "B" oszlopba úgy másolod át, hogy megadod az első 3 cellát, amit át akarsz másolni.

    tehát B1-be írod, hogy =A1, B2-be, hogy =A7, B3-ba, hogy =A13.
    ezután kijelölöd a B1, B2 és B3 cellákat. A kijelölés jobb alsó sarkában van egy kis bogyó erre bal gombbal kattintasz, majd elkezded a kijelölést lefelé húzni és így minden 6. cellát átmásolja a "B" oszlopba.

    Legalábbis én így emlékszem, de azért nem 100%, hogy működik
    Mutasd a teljes hozzászólást!
  • Szia!

    Köszönöm, de azt hiszem félreértetted. Nem minden 6. kell hogy másolódjon hanem mindet kellene másoljam csak abban az oszlopban ahova másolom ott minden 16. legyen egy a másolt oszlopból.
    Kb így: A1=B1 A16=B2 A32=B3

    Remélem így érthetőbb.
    Bozo
    Mutasd a teljes hozzászólást!
  • most látom, hogy tényleg benéztem egy kicsit

    Így egyébként már csökken a lehetőségek száma, egészen addig, hogy makrózni kell, mivel olyan függvény nem hiszem, hogy van ami képes minden x-edik cellába másolni De mindjárt utána járok az excell-ben a dolognak
    Mutasd a teljes hozzászólást!
  • Sejtettem, hogy makrózni kell, csak ahhoz totál hülye vagyok sajnos. Mondjuk az excel-hez is....

    Illetve tudom, mi az a makró és tudom is használni, csak írni nem tudok.
    Mutasd a teljes hozzászólást!
  • én gyors összedobtam neked egy makrót, amit gondolom már a feladatnak megfelelően módosítani is tudsz

    Sub Makró1() For i = 0 To 10 'ez az oszlop első 10 celláját másolja Range("B" & i + 1).Select 'másolandó cella kijelölése Selection.Copy 'cella másolása Range("A" & i * 16 + 1).Select 'célcella kijelölése ActiveSheet.Paste 'cellába másolás Application.CutCopyMode = False 'kijelölés megszüntetése Next End Sub
    Mutasd a teljes hozzászólást!
  • Ajjaj, remélem, hogy sikerülni fog. Neki is látok, köszönöm a segítséget!!
    Mutasd a teljes hozzászólást!
  • ha valami nem sikerül, akkor csak szólj

    esetleg ha a konkrét cellatartományt is megadod, akkor átírhatom én is
    Mutasd a teljes hozzászólást!
  • Természetesen megadom :)
    http://bozo.dwo.hu/excelmasolas.xls
    Innen le tudod tölteni az excel táblát amiből kiindulnék.
    Végülis a lényeg az lenne hogy pl a b vagy c oszlopba szétszedje 15 luk kihagyásával az a oszlopot. :)
    Mert akkor már be tudom másolni a fő táblázatomba.
    És utána még ezt 15X más adatokkal meg tudom majd ezzel a táblával csinálni.

    Előre is köszi.
    Az email címem ha a fájlt vissza tudod nekem küldeni: bozolika@ gmail.com
    Mutasd a teljes hozzászólást!
  • e-mail elküldve

    a megoldás az alábbi makró volt:


    Sub Makró1() For i = 0 To 298 'ez az oszlop első 298 celláját másolja Range("A" & i + 1).Select 'másolandó cella kijelölése (pl A1, A2, stb...) Selection.Copy 'cella másolása Range("B" & i * 16 + 1).Select 'célcella kijelölése (pl B1, B17, B33, stb...) ActiveSheet.Paste 'cellába másolás Application.CutCopyMode = False 'kijelölés megszüntetése Next End Sub
    Mutasd a teljes hozzászólást!
  • Köszönöm Fefy a segítségedet sikerült a megoldás!

    Bozo
    Mutasd a teljes hozzászólást!
  • Még 1 kérdés, ha nem nem B1-nél szeretném hogy kezdődjön a beillesztés hanem B2-nél vagy B3-nál akkor mit kell átírjak a makróban?
    Mutasd a teljes hozzászólást!
  • A Range("A" & i + 1).Select és Range("B" & i * 16 + 1) sorokban a +1-et kell átírni +2, +3 stb.-re

    ja és köszi a pontokat
    Mutasd a teljes hozzászólást!
  • Én köszi a helpet! Siker!!
    Mutasd a teljes hozzászólást!
abcd