MESCLAGEM AUTOMATICA & WRAP DE TEXTO NO EXCEL?

EU QUERO UMA MACRO E QUANDO EXECUTAR ESTA MACRO, EM SEGUIDA, MESCLAR CELLS(COLUMNS) POR A4 PÁGINA CONFIGURAÇÃO (POTRAIT) E APÓS ISSO SE TEXTO COMPLETO NÃO É MOSTRADO, EM SEGUIDA, MESCLAR MAIS CELLS(ROWS)
dicional detalhes
EXEMPLO: EU TENHO QUE ESTÁ NA CÉLULA A1 & A2 TEXTO E MOSTRADO PARA AA1 AA2 &. ENTÃO EU QUERO JUNTAR ESTE TEXTO DENTRO A4 POTRAIT FUNÇÃO, OU SEJA, UPTO N1 & N2. E QUANDO EU EXECUTAR MACRO, ENTÃO ELE DESCOBRIR TODOS OS TEXTO COMEÇANDO E MESCLAR DENTRO DE CONFIGURAÇÃO DE PÁGINA E, EM SEGUIDA, ENVOLVÊ-LA.

Resposta

O problema que você descreve parece exigir a criação de uma macro no Excel que mescla automaticamente as células de acordo com a configuração da página e faz o texto se ajustar dentro dessas células. Vamos dividir isso em etapas para facilitar o entendimento.

Passo 1: Abra o Excel e pressione Alt + F11 para abrir o Editor do Visual Basic.

Passo 2: Crie uma nova macro clicando em Inserir > Módulo.

Passo 3: Agora, você pode começar a escrever o código para mesclar as células de acordo com a configuração da página.

Passo 4: Utilize o código abaixo como base para a sua macro:

Sub MesclarCelulas()

Dim Pagina As PageSetup

Set Pagina = ActiveSheet.PageSetup

'Verifica a orientação da página

If Pagina.Orientation = xlPortrait Then

'Mescla as células de acordo com a configuração da página

If ActiveCell.Column = 1 And ActiveCell.Row = 1 Then

Range("A1:A2").Merge

If Len(Range("A1").Value) + Len(Range("A2").Value) > 255 Then

Range("A1:A2").UnMerge

Range("A1") = Range("A1") & " " & Range("A2")

End If

End If

'Envolve o texto

With Selection

.WrapText = True

End With

End If

End Sub

Este código verifica se a página está configurada com orientação retrato e, se sim, mescla as células de acordo com as configurações especificadas. Além disso, ele verifica se o texto completo será mostrado após a mesclagem das células e, caso contrário, mescla mais células adicionais.

Passo 5: Após digitar o código, feche o Editor do Visual Basic e retorne para a planilha do Excel.

Passo 6: Agora, você pode executar a macro clicando em Desenvolvedor > Macros e selecionando a macro que acabou de criar.

Espero que este guia seja útil para a criação da macro desejada. Se precisar de mais alguma ajuda, não hesite em perguntar!