V tomto tutoriálu se podíváme na různé způsoby, jak můžete sloučit buňky pomocí VBA.
Sloučit buňky pomocí VBA
Buňky ve VBA můžete sloučit pomocí metody Range.Merge. Následující kód sloučí buňky A1: C1:
| 12345 | Dílčí sloučení buněk ()Rozsah („A1: C1“). SloučitEnd Sub |
Výsledek je:
Slučte buňky pomocí VBA
Sloučený rozsah buněk můžete sloučit pomocí Range.UnMerge metody. Řekněme, že jste sloučili rozsah buněk A1: D1. K sloučení buněk můžete použít jednu z odkazů na buňky v rozsahu. Následující kód ukazuje, jak sloučit buňky A1: D1, v tomto případě používáme buňku B1:
| 12345 | Sub UnmergeCells ()Rozsah („B1“). UnMergeEnd Sub |
Více příkladů sloučení
Sloučit řádky pomocí VBA
Řádky můžete sloučit pomocí jazyka VBA zadáním čísel řádků, které chcete sloučit. Máme text v buňce A1 zobrazený níže:
Následující kód sloučí řádky 1-4:
| 12345 | Dílčí sloučení řádků ()Rozsah („1: 4“). SloučitEnd Sub |
Výsledek je:
Sloučit sloupce pomocí VBA
Sloupce můžete sloučit pomocí VBA a písmen sloupců. Následující kód sloučí sloupce A: C.
| 12345 | Sloučené sloupce ()Rozsah („A: C“). SloučitEnd Sub |
Výsledek je:
Sloučit a vycentrovat obsah buňky vodorovně
Obsah buňky můžete sloučit a vystředit vodorovně v celém rozsahu buněk. Musíte sloučit požadované buňky a také nastavit vlastnost horizontálního zarovnání objektu rozsahu na střed. Máme text v buňce A1, jak je uvedeno níže:
Následující kód sloučí oblast buněk A1: D1 a obsah buňky A1 vycentruje vodorovně napříč touto oblastí buněk:
| 123456 | Sub MergeandCenterContentsHorizontally ()Rozsah („A1: D1“). SloučitRozsah ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
Výsledek je:
Sloučit a vycentrovat obsah buňky vertikálně
Obsah buňky můžete sloučit a vycentrovat svisle napříč rozsahem buněk. Musíte sloučit požadované buňky a také nastavit vlastnost svislého zarovnání objektu rozsahu na střed. Máme text v buňce A1, jak je uvedeno níže:
Následující kód sloučí oblast buněk A1: A4 a obsah buňky A1 zarovná na střed napříč tímto rozsahem buněk:
| 123456 | Sub MergeandCenterContentsVertically ()Rozsah („A1: A4“). SloučitRozsah („A1: D1“). VerticalAlignment = xlCenterEnd Sub |
Výsledek je:
Sloučit buňky v rozsahu buněk
Buňky můžete sloučit napříč rozsahem buněk. Volitelný parametr Across metody Merge musíte nastavit na True. Máme text v buňce A1, jak je uvedeno níže:
Následující kód sloučí rozsah buněk A1: D1:
| 12345 | Sub MergeCellsAcross ()Rozsah ("A1: D1"). Sloučit napříč: = PravdaEnd Sub |
Výsledek je:
