Concatenar colunas com células de valor personalizado

fontesrubens · 5 de setembro de 2017

Boa tarde pessoal, tudo bem?

Tenho um range de alguns contatos, cerca de 900 pra cima e preciso concatenar duas colunas desses.

A dificuldade está no valores contidos nas células, onde estão personalizadas para CNPJ e Inscrição estadual. Na hora de concatenar normalmente, ele concatena apenas os números, sem a formatação da célula. (Arquivo para teste em anexo)

É possível concatenar numa mesma coluna "puxando" a formatação da célula?????

Para concatenar normalmente(sem puxar formatação de célula), estou usando isto:

Sub concatenar()

Dim R As Long
For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(R, 6) = Cells(R, 3) & Chr(10) & Cells(R, 4) & Chr(10) & Cells(R, 5)
Next

End Sub

Obrigado!!

Concatenar_especial.xlsx

fontesrubens · 6 de setembro de 2017

Será que é possível fazer isso em VBA excel?

Edson Luiz Branco · 13 de setembro de 2017

Boa noite, @fontesrubens

Em 05/09/2017 às 15:03, fontesrubens disse:

É possível concatenar numa mesma coluna "puxando" a formatação da célula?????

Em 06/09/2017 às 16:30, fontesrubens disse:

Será que é possível fazer isso em VBA excel?

Sim, é possível. Quando você não especifica a propriedade para um objeto Range, a propriedade padrão que o VBA usa é a propriedade Value, que retorna somente o valor que está na célula, sem formatação.

Mas se ao invés disso você usar a propriedade Text, trará o conteúdo da célula considerando a formatação personalizada aplicada.

No seu caso acima, experimente usar:

Cells(R, 6).Value = Cells(R, 3).Text & Chr(10) & Cells(R, 4).Text & Chr(10) & Cells(R, 5).Text