VBA – Mesclar Células e Desfazer a Mesclagem de Células

Neste tutorial, veremos as diferentes maneiras de mesclar células usando o VBA.

Mesclar Células usando o VBA

Você pode mesclar células no VBA usando o método Range.Merge. O código a seguir mesclará as células A1:C1:

Sub MesclarCelulas()

Range("A1:C1").Merge

End Sub

O resultado é:

Desfazer a Mesclagem de Células Usando o VBA

Você pode desfazer a mesclagem de um intervalo de células mescladas usando o método Range.UnMerge. Digamos que você tenha mesclado o intervalo de células A1:D1. Você pode usar uma das referências de célula no intervalo para desfazer a mesclagem das células. O código a seguir mostra como desfazer a mesclagem das células A1:D1; nesse caso, estamos usando a célula B1:

Sub DesfazerMesclagem()

Range("B1").UnMerge

End Sub

Mais Exemplos de Mesclagem

Mesclar Linhas Usando o VBA

Você pode mesclar linhas usando o VBA especificando os números das linhas que deseja mesclar. Temos o texto na célula A1 mostrado abaixo:

O código a seguir mesclará as linhas 1-4:

Sub MesclarLinhas()

Range("1:4").Merge

End Sub

O resultado é:

 

Mesclar Colunas Usando o VBA

Você pode mesclar colunas usando o VBA e as letras das colunas. O código a seguir mesclará as colunas A:C.

Sub MesclarColunas()

Range("A:C").Merge

End Sub

O resultado é:

Mesclar e Centralizar o Conteúdo da Célula Horizontalmente

Você pode mesclar e centralizar o conteúdo das células horizontalmente em um intervalo de células. É necessário mesclar as células de interesse e também definir a propriedade de alinhamento horizontal do objeto de intervalo como centralizada. Temos o texto na célula A1, conforme mostrado abaixo:

O código a seguir mesclará o intervalo de células A1:D1 e centralizará o conteúdo da célula A1 horizontalmente nesse intervalo de células:

Sub MesclarCentralizarHorizontal()

Range("A1:D1").Merge
Range("A1:D1").HorizontalAlignment = xlCenter

End Sub

O resultado é:

Mesclar e Centralizar o Conteúdo da Célula Verticalmente

Você pode mesclar e centralizar o conteúdo das células verticalmente em um intervalo de células. É necessário mesclar as células de interesse e também definir a propriedade de alinhamento vertical do objeto de intervalo como centralizada. Temos o texto na célula A1, conforme mostrado abaixo:

O código a seguir mesclará o intervalo de células A1:A4 e centralizará o conteúdo da célula A1 verticalmente nesse intervalo de células:

Sub MesclarCentralizarVertical()

Range("A1:A4").Merge
Range("A1:D1").VerticalAlignment = xlCenter

End Sub

O resultado é:

Mesclar Células em um Intervalo de Células

Você pode mesclar células em um intervalo de células. É necessário definir o parâmetro opcional Across do método Merge como True. Temos o texto na célula A1, conforme mostrado abaixo:

O código a seguir mesclará o intervalo de células A1:D1:

Sub MesclarCelulaAtraves()

Range("A1:D1").Merge Across:=True

End Sub

O resultado é: