Como combinar células usando o Excel VBA

Mesclar células no Excel é útil quando você deseja combinar várias células em uma célula maior. Ele pode ser usado para título, organizar dados ou formatar a aparência da planilha.

Excel VBA é uma linguagem de programação usada para automatizar tarefas no Microsoft Excel. Uma tarefa que geralmente é feita no Excel é combinar células, para unir várias células em uma célula grande. A mesclagem de células pode ser útil para criar títulos, tabelas ou formatos de dados específicos.

Há várias maneiras de combinar células usando o Excel VBA, a saber:

  • Use a propriedade “Merge” do objeto “Range”.
  • Use o método “MergeCells” do objeto “Range”.
  • Use o método “MergeArea” do objeto “Range”.
  • Use o método “UnMerge” do objeto “Range” para unmerge cells.
vba
vba

Este artigo abordará esses métodos em detalhes, juntamente com exemplos de código e resultados. Também discutiremos algumas coisas a serem observadas ao mesclar células usando o Excel VBA.

Usando a propriedade “Merge” de um objeto “Range”

A propriedade “Merge” do objeto “Range” é usada para definir ou retornar um valor booleano, indicando se um intervalo de células é combinado ou não. Um valor de “True” significa que um intervalo de células é mesclado, enquanto um valor Falso significa que um intervalo de células não é mesclado.

Para mesclar células usando a propriedade “Merge”, podemos atribuir valores “True” a essas propriedades para o intervalo de células que queremos combinar. O exemplo de código a seguir mostra como mesclar células A1 a C3 usando a propriedade Merge.

Sub MergeCellsUsingMergeProperty()
 'Combining cells A1 to C3
 Range( “A1:C3” ). Merge = True
End Sub

Podemos ver que as células A1 a C3 foram mescladas em uma célula grande, e o valor da célula A1 permanece exibido no meio da célula mesclada.

Para desmesclar células usando a propriedade ing “Merge”, podemos atribuir um valor “False” a essa propriedade para o intervalo de células que queremos dividir. O exemplo de código a seguir mostra como desmesclar células A1 a C3 usando a propriedade “Merge”.

Sub UnMergeCellsUsingMergeProperty()
 'Unmerge cells A1 through C3
 Range( “A1:C3” ). Merge = False
End Sub

Podemos ver que as células A1 a C3 foram separadas em células individuais, e o valor da célula A1 permanece exibido na célula A1.

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

O método “MergeCells” de objetos “Range” é usado para mesclar ou desmesclar intervalos de células selecionados. Esse método não tem argumentos e só funciona no intervalo de células selecionado pelo usuário.

Para mesclar células usando o método “MergeCells”, podemos selecionar o intervalo de células que queremos combinar e, em seguida, executar o método. O exemplo de código a seguir mostra como combinar células D1 a F3 usando o método “MergeCells”.

Sub MergeCellsUsingMergeCellsMethod()
 'Select cells D1 through F3
 Range( “D1:F3” ). Select
 'Merge selected cells
 Selection.MergeCells
End Sub

Podemos ver que as células D1 a F3 foram mescladas em uma célula grande, e o valor da célula D1 permanece exibido no meio da célula mesclada.

Para desmesclar células usando o método “MergeCells”, podemos selecionar o intervalo de células que queremos dividir e, em seguida, executar o método. O exemplo de código a seguir mostra como desmesclar células D1 a F3 usando o método “MergeCells”.

Sub UnMergeCellsUsingMergeCellsMethod()
 'Select cells D1 through F3
 Range( “D1:F3” ). Select
 'Unmerge selected cells
 Selection.MergeCells
End Sub

Podemos ver que as células D1 a F3 foram separadas em células individuais, e o valor da célula D1 permanece exibido na célula D1.

Últimos artigos