Tartalomjegyzék
Az egyik legfontosabb és legszélesebb körben használt feladat, amelyet az Excelben végzett munka során el kell végeznünk, a cellák függőleges összevonása adatvesztés nélkül. Ma megmutatom, hogyan lehet az Excelben függőlegesen összevonni a cellákat adatvesztés nélkül.
Gyakorlati munkafüzet letöltése
Függőlegesen egyesített cellák adatvesztés nélkül.xlsm4 egyszerű módszer az Excel cellák függőlegesen történő egyesítésére az adatok elvesztése nélkül
Itt van egy adathalmaz, amely néhány szerző nevét és könyveit tartalmazza a Martin könyvesbolt nevű könyvesboltban.
A mai célunk az, hogy egyazon szerző könyvneveit függőlegesen egy cellában egyesítsük anélkül, hogy adatvesztés történne.
1. Futtassa az Excel eszköztár egyesítő és központosító eszközét az Excel celláinak függőlegesen történő egyesítéséhez az adatok elvesztése nélkül
1. lépés:
➤ Jelölje ki az első egyesíteni kívánt sejtcsoportot (ebben a példában Charles Dickens könyvei).
2. lépés:
➤ Menj a Kezdőlap> Összevonás & Központ eszköz az Excel eszköztárban a Kiegyenlítés .
3. lépés:
➤ Kattintson a legördülő menüre.
➤ A rendelkezésre álló lehetőségek közül válassza ki a következőt Összevonás & Központ .
4. lépés:
➤ Kattintson a Összevonás & Központ .
➤ A kiválasztott cellák csoportját egyetlen cellába összevonva találja, de csak az első cella (ebben a példában Nagy Dickens) értékét tartalmazza.
5. lépés:
➤ Ugyanezt az eljárást megismételheti a cellák többi csoportjára is, hogy egyetlen cellává egyesítse őket.
Bővebben: Hogyan lehet egyesíteni és központosítani a cellákat az Excelben
2. Használja az Ampersand (&) szimbólumot az Excel celláinak függőlegesen történő egyesítéséhez az adatok elvesztése nélkül
A fent említett módszer a sejtek csoportját egyetlen cellává egyesíti, de nem teljesíti teljes mértékben a követelményünket.
Csak az első cellából tartja meg az értéket, nem pedig az összes cellából.
Ez azt jelenti, hogy adatokat veszít.
Egy cellákból álló csoport értékeinek egyetlen cellába történő összevonásához használhat egy képletet, amely a következő formulát tartalmazza Amperjel (&) szimbólum.
A cellák első csoportjának képlete a következő lesz:
=C4&", "&C5&", "&C6 Megjegyzés:
- Itt használtam vesszők (,) a könyvnevek között, hogy szalonképesnek tűnjön. Bármit használhatsz, amit csak akarsz.
Ezután ismételje meg ugyanezt az eljárást az összes sejtcsoportra.
3. Formula használata az Excel cellák függőleges egyesítéséhez az adatok elvesztése nélkül
Ahelyett, hogy a Amperjel (&) szimbólumot, használhatja a CONCATENATE funkció Az Excel egy cellákból álló csoport egyetlen cellává történő egyesítése.
Az első sejtcsoport összevonásának képlete a következő lesz:
=CONCATENATE(C4,", ",C5,", ",C6)
Megjegyzés:
- Itt is használtam vesszők (,) a könyvek nevei között. Bármit használhatsz, amit csak akarsz.
Ezután ezt a képletet használhatja a cellák többi csoportjára, hogy egyetlen cellába egyesítse őket.
4. VBA-kódok futtatása az Excel celláinak függőlegesen történő egyesítéséhez az adatok elvesztése nélkül
A fent említett módszerek mindegyike tökéletesen működik, de mégsem teljesítik teljesen a célunkat.
Olyan módszert szeretnénk levezetni, amely egyetlen kattintással az összes sejtcsoportot egyetlen cellává egyesíti.
És igen, vannak erre módszerek. Ebben a szakaszban egy olyan módszert fogunk levezetni, amely egy VBA kódot, amely a lehető legegyszerűbben egyesíti az összes sejtcsoportot egyetlen cellává.
1. lépés:
➤ Sajtó ALT+F11 a billentyűzeten. VBA ablak fog megnyílni.
2. lépés:
➤ Menjen a Beillesztés lapot a VBA ablakban.
➤ A rendelkezésre álló lehetőségek közül válassza a Modul .
3. lépés:
➤ Egy új modulablak, az úgynevezett "Modul 1" kinyílik.
➤ Illessze be a következőket VBA kód a modulban.
Kód:
Sub Merging_Rows() Dim out As Variant out = " Dim start As Variant start = 1 Dim ending As Variant ending = 1 Dim i As Variant Dim j As Variant For i = 2 To Selection.Rows.Count + 1 If Selection(i, 1) "" Or i = Selection.Rows.Count + 1 Then ending = i - 1 For j = start To ending If j = ending Then out = out + Range(Selection(j, 2).Address).ValueElse: out = out + Range(Selection(j, 2).Address).Value + vbNewLine End If Next j Range(Selection(start, 2).Address) = out Range(Selection(start, 1).Address + ":" + Selection(ending, 1).Address).Merge Across:=False Range(Selection(start, 2).Address + ":" + Selection(ending, 2).Address).Merge Across:=False start = iout = "" End If Next i End Sub 
4. lépés:
➤ Mentsük a munkafüzetet Excel makró-képes munkafüzet .
5. lépés:
➤ Térjen vissza a munkafüzetéhez, és válassza ki az adathalmazt (a nélkül a Oszlopcímek ).
6. lépés:
➤ Sajtó ALT+F8 a billentyűzeten.
➤ A párbeszédpanel neve Makró megnyílik. Válassza ki Merging_Rows és kattintson a Fuss .
6. lépés:
➤ Megjelenik egy figyelmeztető ablak, amely megmondja, hogy a cellák összevonása csak a bal felső cella értékét tartja meg, és a többi értéket elveti.
➤ Kattintson a OK .
7. lépés:
➤ Néhányszor ugyanaz a figyelmeztető ablak fog megjelenni. Kattintson a OK minden alkalommal.
➤ Végül a cellák összes csoportját függőlegesen egyesített cellákká fogja összevonni, így.
Következtetés
Ezekkel a módszerekkel az Excelben függőlegesen egyesítheti a cellákat adatvesztés nélkül. Ismer más módszert is? Vagy bármilyen kérdése van? Kérdezzen bátran.
