Como Mesclar Celulas no Excel Automaticamente

Existem diversas maneiras de mesclar células no Excel, sendo a mais simples e rápida a utilização da função "Mesclar e Centralizar". No entanto, esse método deve ser utilizado com cautela, pois pode dificultar a organização e manipulação dos dados posteriormente. Para mesclar células automaticamente, recomenda-se a utilização de fórmulas condicionais ou macros.

Fórmulas condicionais:

1. Selecione a célula que deseja mesclar automaticamente com a célula ao lado;
2. Na barra de fórmulas, digite a seguinte fórmula: =SE(E(A1<>"",B1<>""),A1&" "&B1,"");
3. Pressione Enter e a célula deverá mostrar o conteúdo das duas células mescladas.

Essa fórmula utiliza a função SE para verificar se as células A1 e B1 contém algum valor. Se as duas células estiverem preenchidas, a função CONCATENAR é utilizada para unir os valores das duas células com um espaço em branco entre elas. Caso contrário, a célula ficará em branco.

Macros:

1. Abra o Excel e pressione ALT + F11 para abrir o Visual Basic for Applications (VBA);
2. Clique com o botão direito do mouse em "Este Computador" e selecione "Inserir" > "Módulo";
3. Digite o seguinte código:

Sub MesclarCelulas()For Each cel In Selection If cel.Value <> "" And cel.Offset(0, 1).Value <> "" Then cel.Value = cel.Value & " " & cel.Offset(0, 1).Value cel.Offset(0, 1).Value = "" cel.Resize(1, 2).Merge End IfNext cel End Sub

4. Pressione F5 para executar o código;
5. Selecione as células que deseja mesclar automaticamente e clique em "Executar Macro".

Esse código utiliza um loop For Each para percorrer todas as células selecionadas. A condição IF verifica se a célula atual e a célula ao lado contém algum valor. Em caso afirmativo, a função CONCATENAR é utilizada para unir os valores das duas células com um espaço em branco entre elas. Em seguida, a célula ao lado é apagada e a célula atual é redimensionada para ocupar o espaço das duas células mescladas.