Desmesclar células Excel VBA – Como retirar mesclagem de células com VBA
Neste artigo é apresentado como desmesclar células em uma seleção.
Esta funcionalidade é principalmente útil quando temos uma lista desformatada de dados, que contém informações mescladas ao longo de suas linhas. Isto causa um problema que impede a utilização de diversas funcionalidades do Excel.
Para remover a mesclagem de células, você pode selecionar manualmente as células e clicar em Página Inicial->Mesclar e Centralizar, desmarcando a opção, fazendo que volte ao seu estado inicial. O problema é que fazer isso para uma planilha com muitas linhas é um trabalho desnecessário, burocrático e você ainda pode esquecer alguma célula ou acabar mesclando células que não deveria indevidamente.
Para evitar este trabalho criei o seguinte código:
'Função para remover mesclagens em células
'1. Selecione a área
'2. Aplique o procedimento
'3. As células foram desmescladas
Public Sub lsRemoverMesclagem()
Dim lCel As Range
Dim lRng As Range
Set lRng = Selection
For Each lCel In lRng
lCel.MergeArea.UnMerge
Next
End Sub
Para aplicar este código siga os procedimento do artigo Habilitar guia desenvolvedor para o Excel 2007 e para o Excel 2010, 2013 e 2016 clique em Arquivo->Opções->Personalizar faixa de opções e selecione a opção Desenvolvedor na lista da direita e depois siga os procedimentos do artigo Habilitar guia desenvolvedor citado.
O código é muito simples de ser utilizado, basta selecionas as células e clicar na guia Desenvolvedor->Macros->lsDesmesclarCelulas e no botão Executar.
Assim que executar Assim que executar o procedimento VBA o Excel irá remover a mesclagem de todas as células selecionadas de forma automática.
Para testar o uso da função segue uma planilha para download com um exemplo e também com o código para remover a mesclagem de células automaticamente.
At.
Marcos Rieper
Curso Excel Completo – Do Básico ao VBA
Quer aprender Excel do Básico, passando pela Avançado e chegando no VBA? Clique na imagem abaixo:
