Hogyan lehet gyorsan összevonni a szomszédos sorokat ugyanazokkal az adatokkal az Excelben?
Tegyük fel, hogy van egy munkalapja ugyanazokkal az adatokkal a szomszédos sorokban, és most ugyanazokat a cellákat szeretné egyesíteni egy cellába, hogy az adatok szépek és szépek legyenek. Hogyan lehet gyorsan és kényelmesen egyesíteni a szomszédos sorokat ugyanazokkal az adatokkal? Ma bemutatom Önnek a probléma megoldásának gyors módját.
Egyesítse az adatok szomszédos sorait a VBA kóddal
Természetesen egyesítheti ugyanazokat az adatokat Egyesítés és központ parancsot, de ha több száz cellát kell egyesíteni, ez a módszer időigényes lesz. Tehát a következő VBA-kód segítségével könnyedén egyesítheti ugyanazokat az adatokat.
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulokablak.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, a képernyőn megjelenik egy párbeszédpanel a tartomány kiválasztásához. Lásd a képernyőképet:
4. Ezután kattintson OK, az A oszlopban szereplő ugyanazokat az adatokat összevonjuk. Lásd a képernyőképet:
Egyesítse az azonos adatok szomszédos sorait a Kutools for Excel programmal
Aktivitáskövető Egyesítse ugyanazokat a cellákat hasznossága Kutools az Excel számára, gyorsan egyesítheti ugyanazokat az értékeket több oszlopban egyetlen kattintással.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, a következőket teheti:
1. Jelölje ki azokat az oszlopokat, amelyekkel a szomszédos sorokat azonos adatokkal kívánja egyesíteni.
2. Kattints Kutools > Egyesítés és felosztás > Egyesítse az azonos cellákat, lásd a képernyőképet:
3. Ezután a kiválasztott oszlopokban szereplő ugyanazokat az adatokat egy cellába egyesítették. Lásd a képernyőképet:
Kattintson a Kutools for Excel letöltéséhez és az ingyenes próbaverzióhoz most!
Ha többet szeretne megtudni erről, kérjük, látogasson el ide Egyesítse az azonos cellákat funkciót.
Bemutató: Ugyanazokat a cellákat egyesítse egy cellába, vagy vonja le a kettős értékek kitöltésével:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!