Ir ao conteúdo
  • Cadastre-se

Fabc

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

Tudo que Fabc postou

  1. Dim lCel As Range Dim lRng As Range Set lRng = Sheets("Plan1").Range("A1:L1000") For Each lCel In lRng If lCel.MergeCells Then lCel.MergeArea.UnMerge lCel.MergeArea.Formula = lCel.Formula 'Esta linha não é executada na MergeArea End If Next End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...