Juntar (e alternar) dados de vÁrias colunas em uma Única no excel

[RobsonLima]

Pessoal,

Boa noite,

Preciso de algo urgente (e meio difícil no excel).

Tenho várias colunas no excel e necessito juntar (e alternar) os dados destas colunas em uma única.

Segue um exemplo abaixo:

A B C

A B C

A B C

Em que A corresponde a elementos da coluna 1, B os da coluna 2 e C os da 3.

Preciso que as colunas acima fiquem dessa forma abaixo:

A

B

C

A

B

C

A

B

C

Como são muito dados, não faz sentido eu transferir (e alternar) elemento por elemento. Se fosse poucos dados eu faria.

Abraço e ajudem-me !!!

[Semião Emanuell]

Robson, boa tarde!

Basta utilizar a função colar transpor do "colar especial"

[Patropi]

Boa tarde Robson

Baixe a planilha e veja se é isto que desejas:

Não se esqueça de habilitar as macros quando acessar a planilha.

http://www.sendspace.com/file/o9x0lc

Dê retorno.

[zinhovba]

Bom dia!!

Tente adaptar

Sub ZinhoVBA_1145094()
Dim sh As Worksheet, rng As Variant, comb As Range
Set sh = Sheets(1) 'Edite o nome de sua guia
For i = 2 To 4
    lr = sh.Cells(Rows.Count, i).End(xlUp).Row
    With sh
        Set rng = .Range(.Cells(2, i), .Cells(lr, i))
    End With
        rng.Cut sh.Cells(Rows.Count, 1).End(xlUp)(2)
Next
Application.CutCopyMode = False
End Sub

Att