Notifications
Clear all

Desmesclar celulas

4 Posts
2 Usuários
0 Reactions
3,072 Visualizações
(@edsonruaro)
Posts: 28
Eminent Member
Topic starter
 

Pessoal boa tarde,

Existe alguma formula para que eu possa desmesclar celulas ?

neste exemplo em anexo, estou utilizando a função SE(ÉCÉLVAZIA) , mas quando a celula esta mesclada retorna pra mim 0.

Como eu tenho muita celula mesclada nesta planilha e não consigo desmesclando uma por uma, precisaria saber se existe alguma formula.

abraços

Edson Ruaro

 
Postado : 26/07/2014 12:12 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Edson

Movi teu tópico para Excel - O Básico.
Neste local não pode postar dúvidas pois é exclusivo para a apresentação dos novos usuários do fórum.

Por enquanto vou deixar teu tópico sendo mostrado nos 2 locais.

At.te

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/07/2014 12:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Use VBA!!

Sub AleVBA-12687() 
    Dim wSheet As Worksheet 
     
    For Each wSheet In Worksheets 
'Coloque aqui seu  intervalo
        wSheet.[a1:aa600].Unmerge 
    Next wSheet 
     
     
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/07/2014 12:26 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Fiz um artigo demonstrando como remover a mesclagem das células selecionadas.

É um procedimento muito parecido com o já apresentado no anterior, a diferença é que ele se aplica a qualquer intervalo de células, pode fazer o download do exemplo e do código comentado no artigo abaixo:

http://guiadoexcel.com.br/desmesclar-celulas-excel-vba-como-retirar-mesclagem-de-celulas-com-vba

O código VBA:

'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

At.

Marcos Rieper

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/11/2015 5:55 am