Adatcsere VBA programmal – három változatban
Közzététel szerző Fodor Tamás itt excel · Szerda 20 Aug 2025 · 3:00
Tags: vba, excel, adatcsere, automatizálás
Tags: vba, excel, adatcsere, automatizálás
Az adatcseréről
Az Excel kiváló eszköz, ha adatokat szeretnénk kezelni, rendezni vagy elemezni. Ugyanakkor előfordul, hogy a beépített Keresés és csere funkció már nem elég: több feltételhez kötött cserére van szükségünk, esetleg nagyobb táblázatokban, vagy éppen egy külön „csere-lista” alapján.
Ilyenkor jön jól az automatizálás VBA-val. Egy egyszerű makróval olyan feladatokat is automatizálhatunk, amelyek kézzel sokáig tartanának, és könnyen hibázhatnánk közben.
Ebben a bejegyzésben bemutatom a komplex adatcsere VBA program három változatát, amely a Webshopomban vásárolható meg.
1. változat – Egyszerű, teljes egyezést mutató adatcsere adott oszlopban
A program elindítása után a fájlkezelővel kiválaszthatjuk azt a fájlt (munkafüzetet), amelyben a cseréket el akarjuk végezni. A program végigmegy egy adott oszlopon, és az ott talált értékeket lecseréli a "Csere" munkalapon (itt találhatók a cserepárok) megadott másikra, ha egyezést talál. Ezeket az oszlopokat felugró ablakban lehet megadni. Az alábbi ábra egy ilyen cserét mutat be.

2. változat – Csere részleges egyezés esetén
A cserére váró célfájl, keresési és csere oszlop megadása az előzőekhez hasonlóan történik. Utána választhatunk a teljes egyezés és a részleges egyezés között. Az utóbbit választva, ha keresési érték akár csak részlegesen megtalálható a keresési oszlop valamelyik sorában, akkor a csere megtörténik a csere oszlopban. A csere a részleges egyezés az első találatánál következik be.
A következő ábra egy ilyen cserét mutat be.

3. változat – Csere több részleges egyezés esetén
A harmadik változat a legfejlettebb. Ez a makró futás előtt rákérdez:
- melyik fájlban van a vizsgálandó munkalap,
- melyik oszlopban keressünk,
- és melyik oszlopban végezzük a cserét.
A keresendő és a csereértékek itt is egy külön, „Csere” nevű munkalapon vannak tárolva (A oszlop: keresendő, B oszlop: csereérték).
A program rákérdez, hogy teljes vagy részleges egyezés esetén történjen a csere. A részleges egyezés választása a program rákérdez, hogy mindig csak az első találatot cserélje a cellán belül, vagy legyen lehetőség arra is, hogy minden előfordulást kicseréljen? Ennek előnye az Excel csere funkciójához viszonyítva az, hogy egy művelettel több csere is végrehajtható.
a következő képernyőfotók ezt a funkciót mutatják.

Miért hasznos ez?
Az adatcsere makrók tipikus felhasználási területei:
- Városnevek, telephelyek rövidítése (pl. „Budapest” → „BP”).
- Régi ügyfélkódok új kódokra cserélése.
- Termékkódok frissítése.
- Adattisztítás, amikor sok különböző formátumban érkező adatot kell egységesíteni.
A program előnyei:
- gyorsaság (több száz vagy ezer rekordot is azonnal feldolgoz),
- hibamentesség (nincs kézi elírás),
- rugalmasság (a harmadik verzióval szinte bármilyen csereszabály megadható).
Következő lépés – automatizálási programok a webshopban
Ez az adatcsere makró csak egy a sok lehetséges üzleti automatizálási eszköz közül. A webshopomban ezzel együtt már most is elérhető két automatizálási program, és a jövőben szeretném bővíteni a kínálatot hasonló, gyakorlatias VBA megoldásokkal.
Ha érdekelnek a hasonló eszközök, vagy szeretnél értesülni az újdonságokról, érdemes rendszeresen ellátogatnod a webshop blogjára, vagy iratkozz fel a hírlevelemre!
✍️ Összefoglalás:
- Az Excel beépített keresés–csere funkciója sokszor kevés.
- A bemutatott három makró egyre fejlettebb módon oldja meg az adatcserét.
- Az automatizálás időt takarít meg, csökkenti a hibázás lehetőségét, és rugalmasabbá teszi az adatkezelést.
Próbáld ki most! Töltsd le az Excel demó fájlt, és nézd meg, hogyan működik az adatcsere automatizálás VBA-val.
A demó verzió 3 cserét végez el, a teljes verzió pedig elérhető a webshopomban.
A demó verzió 3 cserét végez el, a teljes verzió pedig elérhető a webshopomban.
Feliratkozás Hírlevélre
Ha hasznosnak, érdekesnek tartotta ezt a blogbejegyzést, IRATKOZZON FEL a havonta megjelenő HÍRLEVELEMRE, amelyben értesíteni fogom a legújabb bejegyzéseimről, itt, a LinkedIn-en és a YouTube-on!
