Neste tutorial, veremos as diferentes maneiras de mesclar células usando o VBA.
Mesclar células usando 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:
| 12345 | Sub MergingCells ()Intervalo ("A1: C1"). UnirEnd Sub |
O resultado é:
Desfazer a mesclagem de células usando 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, neste caso, estamos usando a célula B1:
| 12345 | Sub UnmergeCells ()Intervalo ("B1"). UnMergeEnd Sub |
Mais exemplos de fusão
Mesclar linhas usando 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 a 4:
| 12345 | Sub MergeRows ()Intervalo ("1: 4"). UnirEnd Sub |
O resultado é:
Mesclar colunas usando VBA
Você pode mesclar colunas usando VBA e as letras das colunas. O código a seguir mesclará as colunas A: C.
| 12345 | Sub MergeColumns ()Intervalo ("A: C"). UnirEnd Sub |
O resultado é:
Mesclar e centralizar o conteúdo da célula horizontalmente
Você pode mesclar e centralizar o conteúdo da célula horizontalmente em um intervalo de células. Você deve mesclar as células de interesse e também definir a propriedade de alinhamento horizontal do objeto de intervalo para o centro. 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 neste intervalo de células:
| 123456 | Sub MergeandCenterContentsHorizontally ()Intervalo ("A1: D1"). UnirIntervalo ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
O resultado é:
Mesclar e centralizar o conteúdo da célula verticalmente
Você pode mesclar e centralizar o conteúdo da célula verticalmente em um intervalo de células. Você deve mesclar as células de interesse e também definir a propriedade de alinhamento vertical do objeto de intervalo para o centro. 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 neste intervalo de células:
| 123456 | Sub MergeandCenterContentsVertically ()Intervalo ("A1: A4"). UnirIntervalo ("A1: D1"). VerticalAlignment = xlCenterEnd Sub |
O resultado é:
Mesclar células em um intervalo de células
Você pode mesclar células em um intervalo de células. Você deve 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:
| 12345 | Sub MergeCellsAcross ()Intervalo ("A1: D1"). Mesclar: = VerdadeiroEnd Sub |
O resultado é:
