В этом руководстве мы рассмотрим различные способы объединения ячеек с помощью VBA.
Объединить ячейки с помощью VBA
Вы можете объединять ячейки в VBA с помощью метода Range.Merge. Следующий код объединит ячейки A1: C1:
12345 | Sub MergingCells ()Диапазон ("A1: C1"). ОбъединитьКонец подписки |
Результат:
Разъединение ячеек с помощью VBA
Вы можете разъединить объединенный диапазон ячеек с помощью метода Range.UnMerge. Допустим, вы объединили диапазон ячеек A1: D1. Вы можете использовать одну из ссылок на ячейки в диапазоне, чтобы разъединить ячейки. В следующем коде показано, как разъединить ячейки A1: D1, в данном случае мы используем ячейку B1:
12345 | Sub UnmergeCells ()Диапазон ("B1"). РазъединитьКонец подписки |
Больше примеров слияния
Объединить строки с помощью VBA
Вы можете объединить строки с помощью VBA, указав номера строк, которые вы хотите объединить. У нас есть текст в ячейке A1, показанный ниже:
Следующий код объединит строки 1-4:
12345 | Sub MergeRows ()Диапазон ("1: 4"). ОбъединитьКонец подписки |
Результат:
Объединить столбцы с помощью VBA
Вы можете объединять столбцы, используя VBA и буквы столбцов. Следующий код объединит столбцы A: C.
12345 | Вложенные столбцы слияния ()Диапазон ("A: C"). ОбъединитьКонец подписки |
Результат:
Объединить и центрировать содержимое ячейки по горизонтали
Вы можете объединить и центрировать содержимое ячеек по горизонтали в диапазоне ячеек. Вы должны объединить интересующие ячейки, а также установить свойство горизонтального выравнивания объекта диапазона в центр. У нас есть текст в ячейке A1, как показано ниже:
Следующий код объединит диапазон ячеек A1: D1 и отцентрирует содержимое ячейки A1 по горизонтали в этом диапазоне ячеек:
123456 | Sub MergeandCenterContentsHorizontally ()Диапазон ("A1: D1"). ОбъединитьДиапазон ("A1: D1"). HorizontalAlignment = xlCenterКонец подписки |
Результат:
Объединить и центрировать содержимое ячейки по вертикали
Вы можете объединить и центрировать содержимое ячеек по вертикали в диапазоне ячеек. Вы должны объединить интересующие ячейки, а также установить свойство вертикального выравнивания объекта диапазона в центр. У нас есть текст в ячейке A1, как показано ниже:
Следующий код объединит диапазон ячеек A1: A4 и отцентрирует содержимое ячейки A1 по вертикали в этом диапазоне ячеек:
123456 | Sub MergeandCenterContentsVertical ()Диапазон ("A1: A4"). ОбъединитьДиапазон ("A1: D1"). VerticalAlignment = xlCenterКонец подписки |
Результат:
Объединить ячейки в диапазоне ячеек
Вы можете объединять ячейки в диапазоне ячеек. Вы должны установить для необязательного параметра Across метода Merge значение True. У нас есть текст в ячейке A1, как показано ниже:
Следующий код объединит диапазон ячеек A1: D1:
12345 | Sub MergeCellsAcross ()Диапазон ("A1: D1"). Объединить через: = TrueКонец подписки |
Результат: