Ebben az oktatóanyagban megvizsgáljuk a cellák egyesítésének különböző módjait a VBA használatával.
Cellák egyesítése VBA használatával
A Range.Merge módszerrel egyesítheti a cellákat a VBA -ban. A következő kód egyesíti az A1: C1 cellákat:
12345 | Összevonási cellák ()Tartomány ("A1: C1"). EgyesítésEnd Sub |
Az eredmény:
A cellák szétválasztása a VBA segítségével
Az egyesített cellatartomány egyesítését a Range.UnMerge módszerrel oldhatja fel. Tegyük fel, hogy egyesítette az A1: D1 cellatartományt. A cellák egyesítésének feloldásához használhatja a tartomány egyik cellahivatkozását. A következő kód bemutatja, hogyan kell szétválasztani az A1: D1 cellákat, ebben az esetben a B1 cellát használjuk:
12345 | Csoportok feloldása ()Tartomány ("B1"). UnMergeEnd Sub |
További példák az egyesítésre
Sorok egyesítése a VBA használatával
A VBA segítségével egyesítheti a sorokat az egyesíteni kívánt sorszámok megadásával. Az alábbi cellában található szöveg az A1 cellában található:
A következő kód egyesíti az 1-4 sorokat:
12345 | Összevonási sorok ()Tartomány ("1: 4"). EgyesítésEnd Sub |
Az eredmény:
Oszlopok egyesítése a VBA használatával
Oszlopokat egyesíthet a VBA és az oszlopbetűk használatával. A következő kód egyesíti az A oszlopokat: C.
12345 | Összevonási oszlopok ()Tartomány ("A: C"). EgyesítésEnd Sub |
Az eredmény:
A cellatartalom egyesítése és középre állítása vízszintesen
A cellatartalmakat vízszintesen egyesítheti és középre helyezheti egy cellatartományban. Össze kell egyesítenie az érdekelt cellákat, és a tartományobjektum vízszintes igazítási tulajdonságát középre kell állítania. A szöveg az A1 cellában található, az alábbiak szerint:
A következő kód egyesíti az A1: D1 cellatartományt, és vízszintesen középre helyezi az A1 cella tartalmát ezen a cellatartományon:
123456 | Sub MergeandCenterContentsHorizontally ()Tartomány ("A1: D1"). EgyesítésTartomány ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
Az eredmény:
Cellatartalom egyesítése és középre állítása függőlegesen
A cellatartalmakat függőlegesen egyesítheti és középre helyezheti egy cellatartományban. Össze kell egyesítenie az érdekelt cellákat, és a tartományobjektum függőleges igazítási tulajdonságát középre kell állítania. A szöveg az A1 cellában található, az alábbiak szerint:
A következő kód egyesíti az A1: A4 cellatartományt, és az A1 cella tartalmát függőlegesen középre helyezi ezen a cellatartományon:
123456 | Egyesítés és központContentVertically ()Tartomány ("A1: A4"). EgyesítésTartomány ("A1: D1"). VerticalAlignment = xlCenterEnd Sub |
Az eredmény:
Sejtek egyesítése cellatartományban
A cellákat egyesítheti egy cellatartományban. A Merge metódus opcionális Across paraméterét True értékre kell állítania. A szöveg az A1 cellában található, az alábbiak szerint:
A következő kód egyesíti az A1: D1 cellatartományt:
12345 | Sub MergeCellsAcross ()Tartomány ("A1: D1"). Összevonás: = IgazEnd Sub |
Az eredmény: