У цьому підручнику ми розглянемо різні способи об’єднання клітинок за допомогою VBA.
Об’єднайте клітинки за допомогою VBA
Ви можете об’єднати комірки у VBA за допомогою методу Range.Merge. Наступний код об’єднає клітинки A1: C1:
| 12345 | Sub MergingCells ()Діапазон ("A1: C1"). Об'єднатиEnd Sub |
Результат такий:
Роз'єднайте клітинки за допомогою VBA
Ви можете роз’єднати об’єднаний діапазон комірок за допомогою методу Range.UnMerge. Припустимо, ви об’єднали діапазон комірок A1: D1. Ви можете використати одну з посилань на клітинки в діапазоні, щоб роз’єднати комірки. Наступний код показує вам, як роз’єднати комірки A1: D1, у цьому випадку ми використовуємо комірку B1:
| 12345 | Sub UnmergeCells ()Діапазон ("B1"). Відмінити об'єднанняEnd Sub |
Більше прикладів об’єднання
Об’єднайте рядки за допомогою VBA
Ви можете об’єднати рядки за допомогою VBA, вказавши номери рядків, які потрібно об’єднати. Нижче наведено текст у комірці А1:
Наступний код об'єднає рядки 1-4:
| 12345 | Sub MergeRows ()Діапазон ("1: 4"). Об'єднатиEnd Sub |
Результат такий:
Об’єднати стовпці за допомогою VBA
Ви можете об’єднати стовпці за допомогою VBA та літер стовпців. Наступний код об’єднає стовпці A: C.
| 12345 | Додаткові стовпці злиття ()Діапазон ("A: C"). Об'єднатиEnd Sub |
Результат такий:
Об’єднати та відцентрувати вміст комірки по горизонталі
Ви можете об'єднати вміст комірки та розташувати її по центру горизонтально по діапазону клітинок. Вам потрібно об’єднати цікаві клітинки, а також встановити властивість горизонтального вирівнювання об’єкта діапазону до центру. Ми маємо текст у комірці А1, як показано нижче:
Наступний код об’єднає діапазон комірок A1: D1 і відцентрує вміст комірки A1 горизонтально по цьому діапазону комірок:
| 123456 | Sub MergeandCenterContentsHorizontally ()Діапазон ("A1: D1"). Об'єднатиДіапазон ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
Результат такий:
Об’єднати та відцентрувати вміст комірки вертикально
Ви можете об'єднати вміст комірки та розташувати її по центру у діапазоні клітинок. Вам потрібно об’єднати цікаві клітинки, а також встановити властивість вертикального вирівнювання об’єкта діапазону до центру. Ми маємо текст у комірці А1, як показано нижче:
Наступний код об’єднає діапазон клітинок A1: A4 і відцентрує вміст комірки A1 вертикально по всьому діапазону клітинок:
| 123456 | Sub MergeandCenterContentsВертикально ()Діапазон ("A1: A4"). Об'єднатиДіапазон ("A1: D1"). VerticalAlignment = xlCenterEnd Sub |
Результат такий:
Об’єднайте клітинки в діапазоні клітин
Ви можете об’єднати комірки в діапазоні клітинок. Необхідно встановити необов’язковий параметр Across методу Merge на True. Ми маємо текст у комірці А1, як показано нижче:
Наступний код об’єднає діапазон комірок A1: D1:
| 12345 | Sub MergeCellsAcross ()Діапазон ("A1: D1"). Об'єднати поперек: = ІстинаEnd Sub |
Результат такий:
