Mesclar células do Excel sem perder nenhum conteúdo

Anonim

Como fazer um de dois conteúdos de células no Excel

O Excel oferece a possibilidade de resumir células. Com a função FORMATO - CÉLULAS - ALINHAMENTO - CÉLULAS COMBINADAS, você pode combinar duas células em uma unidade. Mas o que você faz quando há conteúdo em ambas as células que você não quer perder? Use o VBA para resolver o problema.

O exemplo na figura a seguir mostra uma pequena lista de nomes:

Você deseja combinar os dois conteúdos das colunas A e B na primeira coluna A e, em seguida, combinar as duas células das colunas A e B em uma célula. A macro a seguir faz este trabalho:

Mesclar SubCélulas ()

Dim line As Integer

Linha = 1

While Not (IsEmpty (Cells (linha, 1)))

Células (linha, 1) = Células (linha, 1) & "" e Células (linha, 2)

Células (linha, 2) .ClearContents

Intervalo (células (linha, 1), células (linha, 2)). Unir

Linha = linha + 1

Wend

Colunas (1) .AutoFit

End Sub

A macro percorre as linhas da linha 1 até a coluna A estar vazia. Para cada conteúdo não vazio, os conteúdos de A e B são anexados um ao outro (separados por um espaço). Em seguida, as duas células A e B são conectadas para formar uma célula. A figura a seguir mostra o resultado: