Devarias Colunas Para Uma Coluna

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Devarias Colunas Para Uma Coluna

Mensagem por alexandrevba em Qua Out 30, 2013 8:24 am

Bom dia!!
Uma forma de unir (concatenar com espaço), os dados de várias colunas para uma única coluna.

Tente adaptar...

Código:
Sub DevariasColunasParaUmaColuna()
'Uma forma de unir os dados de várias colunas para uma única
Dim x, i&
With Range("A1").CurrentRegion
    x = .Value
    For i = 1 To UBound(x)
        x(i, 1) = Join(Application.Index(x, i, 0))
    Next i
    .ClearContents
    .Columns(1).Value = x
End With
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum