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


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

1 Comentário

  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?

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.