none
VBA Excel Basic - Como Mesclar e Desfazer a Mesclagem das Células - How To Merge and UnMerge Cells RRS feed

Todas as Respostas

  • No exemplo acima, você sabe qual celula você quer mesclar.

    Existe alguma maneira de eu mesclar 3 ou 4 células a partir da célula ativa?

    segunda-feira, 24 de novembro de 2014 14:23
  • ActiveCell.Resize(2, 3).Merge
    Esse exemplo mescla um retângu com 2 linhas e 3 colunas a partir da célula ativa.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 25 de novembro de 2014 20:07
    Moderador
  • 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

    terça-feira, 10 de novembro de 2015 10:58