Macro to join two Excel columns

Question

Hello! I have a question about Excel. I have two columns, I would like a macro that when used, transforms all the rows of these two columns into rows of only one column. I know I can use the concatenate command, but I only know to do it in one line at a time, my document is huge and it becomes impossible to do it manually. Thanks in advance!

Answer 1

Good morning, follow the code. Just select the first row of the columns you want to concatenate. Run with two columns only.

Option Explicit

Sub concatena_colunas()
    Dim coluna_01 As Long
    Dim coluna_02 As Long
    Dim linha As Long

    On Error GoTo sair:
    'Armazena e coloca em ordem crescente
    coluna_01 = Selection.Areas(1).Column
    If Selection.Areas(2).Column < coluna_01 Then
        coluna_02 = Selection.Areas(1).Column
        coluna_01 = Selection.Areas(2).Column
    Else
        coluna_02 = Selection.Areas(2).Column
    End If

    linha = ActiveCell.Row

    Do
        Cells(linha, coluna_01).Value = Cells(linha, coluna_01).Value & " " & Cells(linha, coluna_02).Text
        linha = linha + 1
    Loop While Cells(linha, coluna_01).Value <> Empty

    coluna_01 = 0
    coluna_02 = 0
    linha = 0
sair:
End Sub