Desmesclar células Excel VBA – Como retirar mesclagem de células com VBA

Abrir o Excel em tela cheia ocultar guias, barras de rolagens e menus
Abrir o Excel em tela cheia ocultar barras, guias e ferramentas
8 de novembro de 2015
Conexão MySQL no Excel
Conectar MySQL no Excel – Como conectar o banco de dados MySQL
10 de novembro de 2015

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.

Remover mesclagem de células com VBA Excel

Assim que executar Remover mesclagem de células com VBA ExcelAssim 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

2 Comments

  1. Idemar Altmann disse:

    Olá Marcos,
    Tentei mudar este código para mesclar as células.
    Exemplo: Eu seleciono as células que quero mesclar e executo o a macro mas não funcionou.
    Existe uma forma de mesclar sem ter definido a quantidade de células ou colunas somente pela área selecionada?

  2. Marcos Junior disse:

    Mano, obrigado pela macro, me ajudou muito! Conteúdo top, continue assim, abraços! s2

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.