V tomto tutoriále sa pozrieme na rôzne spôsoby, ako môžete bunky zlúčiť pomocou VBA.
Zlúčte bunky pomocou VBA
Bunky vo VBA môžete zlúčiť pomocou metódy Range.Merge. Nasledujúci kód zlúči bunky A1: C1:
12345 | Sub zlučujúce sa bunky ()Rozsah („A1: C1“). ZlúčiťKoniec pod |
Výsledkom je:
Zrušte zlúčenie buniek pomocou VBA
Zlúčený rozsah buniek môžete zrušiť pomocou metódy Range.UnMerge. Povedzme, že ste zlúčili rozsah buniek A1: D1. Na zrušenie zlúčenia buniek môžete použiť jednu z odkazov na bunky v rozsahu. Nasledujúci kód ukazuje, ako zlúčiť bunky A1: D1, v tomto prípade používame bunku B1:
12345 | Sub UnmergeCells ()Rozsah („B1“). UnMergeKoniec pod |
Viac príkladov zlúčenia
Zlúčte riadky pomocou VBA
Riadky môžete zlúčiť pomocou jazyka VBA zadaním čísel riadkov, ktoré chcete zlúčiť. Máme text v bunke A1 uvedený nižšie:
Nasledujúci kód zlúči riadky 1-4:
12345 | Podzlučovacie riadky ()Rozsah („1: 4“). ZlúčiťKoniec pod |
Výsledkom je:
Zlúčte stĺpce pomocou VBA
Stĺpce môžete zlúčiť pomocou jazyka VBA a písmen stĺpcov. Nasledujúci kód zlúči stĺpce A: C.
12345 | Podzlučovacie stĺpce ()Rozsah („A: C“). ZlúčiťKoniec pod |
Výsledkom je:
Horizontálne zlúčiť a vycentrovať obsah bunky
Obsah bunky môžete horizontálne zlúčiť a vycentrovať v celom rozsahu buniek. Bunky záujmu musíte zlúčiť a tiež nastaviť vlastnosť horizontálneho zarovnania objektu rozsahu na stred. Máme text v bunke A1, ako je uvedené nižšie:
Nasledujúci kód zlúči rozsah buniek A1: D1 a obsah bunky A1 horizontálne vycentruje naprieč týmto rozsahom buniek:
123456 | Sub MergeandCenterContentsHorizontally ()Rozsah („A1: D1“). ZlúčiťRozsah („A1: D1“). HorizontalAlignment = xlCenterKoniec pod |
Výsledkom je:
Zlúčiť a vertikálne vycentrovať obsah bunky
Obsah bunky môžete vertikálne zlúčiť a vycentrovať v rámci rozsahu buniek. Musíte zlúčiť bunky záujmu a tiež nastaviť vlastnosť vertikálneho zarovnania objektu rozsahu na stred. Máme text v bunke A1, ako je uvedené nižšie:
Nasledujúci kód zlúči rozsah buniek A1: A4 a vycentruje obsah bunky A1 vertikálne naprieč týmto rozsahom buniek:
123456 | Sub MergeandCenterContentsVertically ()Rozsah („A1: A4“). ZlúčiťRozsah („A1: D1“). VerticalAlignment = xlCenterKoniec pod |
Výsledkom je:
Zlúčte bunky v celom rozsahu buniek
Bunky môžete zlúčiť v celom rozsahu buniek. Voliteľný parameter Across metódy zlúčenia musíte nastaviť na hodnotu True. Máme text v bunke A1, ako je uvedené nižšie:
Nasledujúci kód zlúči rozsah buniek A1: D1:
12345 | Sub MergeCellsAcross ()Rozsah („A1: D1“). Zlúčiť naprieč: = PravdaKoniec pod |
Výsledkom je: