Excel VBA Merge Cells: Step-by-Step Guide and 6 Code Examples

Office VBA reference topic

Синтаксис

выражения. MergeCells

выражение: переменная, представляющая объект Range.

При выборе диапазона, который содержит объединенные ячейки, выбор результатов может быть не таким, как предполагалось. Чтобы проверить адрес выбранного диапазона, используйте свойство Address.

Merge a Range and Align the Cell Content

Now when you merge two or more cells you need to align the content that you have in the cell. Look at the below snapshot where you have cell A1 and A2 merged and the value in the cells is aligned bottom. To deal with this problem, you can use the alignment property and align the cell content to the center and middle so that it’ll be easy for you to read it.

With Range(“A1:A2”) .Merge .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenterEnd With

Merge Cells Using VBA

You can merge cells in VBA using the Range.Merge method. The following code will merge cells A1:C1:

SubMergingCells()

Range(“A1:C1”).Merge

EndSub

The result is:

How to Merge Cells in VBA

2 ответов

для этого есть несколько полезных битов кода.

поместите курсор в слил ячейка и задайте эти вопросы в окне Immidiate:

является ли activecell объединенной ячейкой?

? Activecell.Mergecells True

сколько ячеек объединены?

? Activecell.MergeArea.Cells.Count 2

сколько столбцов объединены?

? Activecell.MergeArea.Columns.Count 2

сколько строк слилось?

? Activecell.MergeArea.Rows.Count 1

каков адрес объединенного диапазона?

? activecell.MergeArea.Address $F:$F

при работе с выбранными ячейками, как показано @tbur, может быть полезно, это также не единственный доступный вариант.

можно использовать Range () вот так:

If Worksheets(“Sheet1”).Range(“A1”).MergeCells Then Do somethingElse Do something elseEnd If

или:

If Worksheets(“Sheet1”).Range(“A1:C1”).MergeCells Then Do somethingElse Do something elseEnd If

можно использовать Cells ():

If Worksheets(“Sheet1”).Cells(1, 1).MergeCells Then Do somethingElse Do something elseEnd If

Рейтинг
( 1 оценка, среднее 5 из 5 )
Загрузка ...