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.