Como combinar células usando o Excel VBA

Usando o método “MergeArea” do objeto “Range”

O método “MergeArea” do objeto “Range” é usado para retornar um objeto “Range” que representa um intervalo de células mescladas contendo uma célula específica. Esse método não tem argumentos e só funciona em células que já estão combinadas com outras células.

Para mesclar células usando o método “MergeArea”, podemos usar a propriedade “Merge” ou o método “MergeCells” primeiro para combinar o intervalo desejado de células e, em seguida, usar o método “MergeArea” para fazer referência ao intervalo de células mescladas. O exemplo de código a seguir mostra como combinar células G1 a I3 usando a propriedade “Merge” e, em seguida, usar o método “MergeArea” para se referir a esse intervalo de células mescladas.

Sub MergeCellsUsingMergeAreaMethod()
 'Combining cells G1 to I3
 Range( “G1:I3” ). Merge = True
 'Refers to a range of merged cells containing G2 cells
 Range( “G2” ). MergeArea.Select
End Sub

Podemos ver que as células G1 a I3 foram mescladas em uma célula grande, e o valor da célula G1 permanece exibido no meio da célula mesclada. Também podemos ver que o intervalo de células mescladas foi selecionado pelo nosso código, usando o método “MergeArea” para se referir ao intervalo de células mescladas contendo a célula G2.

Para unmerge células usando o método “MergeArea”, podemos usar a propriedade “Merge” ou “MergeCells” método primeiro para desmesclar o intervalo desejado de células e, em seguida, usar o método “MergeArea” para se referir a esse intervalo de células individuais. O exemplo de código a seguir mostra como desmesclar células G1 a I3 usando a propriedade “Merge” e, em seguida, usar o método “MergeArea” para se referir a esse intervalo de células individuais.

Sub UnMergeCellsUsingMergeAreaMethod()
 'Unmerge cells G1 to I3
 Range( “G1:I3” ). Merge = False
 'Refers to the range of individual cells containing G2 cells
 Range( “G2” ). MergeArea.Select
End Sub

Podemos observar que as células G1 a I3 foram separadas em células individuais, e o valor da célula G1 permanece exibido na célula G1. Também podemos ver que o intervalo dessas células individuais foi selecionado pelo nosso código, usando o método MergeArea para se referir ao intervalo de células individuais contendo a célula G2.

Usando o método UnMerge de um objeto “Range”

O método “UnMerge” do objeto “Range” é usado para desmesclar todas as células mescladas em um intervalo de células. Esse método não tem argumentos e só funciona em intervalos de células que contêm pelo menos uma célula mesclada.

Para desmesclar células usando o método “UnMerge”, podemos executar o método para o intervalo de células que queremos dividir. O exemplo de código a seguir mostra como desmesclar todas as células mescladas em uma planilha ativa usando o método “UnMerge”.

Sub UnMergeCellsUsingUnMergeMethod()
 'Unmerge all merged cells in the active worksheet
 ActiveSheet.Cells.UnMerge
End Sub

Podemos ver que todas as células mescladas na planilha ativa foram separadas em células individuais, e os valores dessas células permanecem exibidos em seus locais originais.

Últimos artigos