Macro para Desfazer Mesclagem de Células

Olá! Seja muito bem vindo(a) a mais uma dica de Excel. Neste pequeno artigo eu ensino uma forma através de Macro para Desfazer Mesclagem de Células.

Sabemos que usar a mesclagem de células ajuda na formatação do layout de nossas planilhas, por exemplo, quando criamos uma tabela e nesta inserimos um título no topo. Conforme imagem abaixo.

Podemos observar que o título LISTA DE TAREFAS encontra-se em células mescladas, pois, ao usar o recurso, as células A1, B1 e C1 se tornaram uma única célula.

Visualmente, é um recurso bastante interessante, mas, para quem usa fórmulas, principalmente aquelas de referência como o PROCV, mesclar células, torna-se um incômodo.

Para retirarmos a mesclagem de células, neste nosso exemplo, basta selecionarmos as células mescladas, acessar PÁGINA INICIAL e clicar em Desfazer Mesclagem de Células.

Mas, imagine se temos um arquivo com uma maior quantidade de células mescladas e precisamos fazer isso rapidamente. Dependo do tamanho iríamos ficar horas e até mesmo dias fazendo isso.

Para resolvermos este problema, estou te presenteando com a macro abaixo que fará todo o trabalho árduo para você.

Abaixo está uma macro que faz isso em questão de segundos e em toda a planilha, para que você não precise ficar clicando nessas caixas de seleção:

Sub removeMesclagem()

'Pergunta se você deseja continuar com o processo, se não, então sai
userReply = MsgBox("Remover todas mesclagens na planilha atual?", vbOKCancel)

'Diz à macro para ir para errhandler1 no final da página se a macro produzir um erro
On Error GoTo errhandler1

'userReply
If userReply = vbOK Then

    'torna a macro mais rápida, desativando a atualização da tela
    Application.ScreenUpdating = False

    'seleciona todas as células
    Cells.Select

    'remove toda mesclagem com as células selecionadas
    With Selection
        .WrapText = False
        .ShrinkToFit = False
        .MergeCells = False
    End With

    'coloca o cursor de volta na célula A1
    Range("A1").Select

    'coloca a atualização da tela de volta ao valor padrão
    Application.ScreenUpdating = True

End If

'erorhandler diz a ele para sair da macro se houver um erro

errhandler1:
Exit Sub

End Sub