Para concatenar colunas no Excel usando VBA, podemos usar o operador "&" ou a função "Concatenate". Veja abaixo um exemplo usando o operador "&":
``` Sub concatenar_colunas()Dim lastRow As LonglastRow = Cells(Rows.Count, "A").End(xlUp).Row 'define a última célula preenchida da coluna A
For i = 1 To lastRowRange("C" & i).Value = Range("A" & i).Value & " " & Range("B" & i).Value 'concatena as colunas A e B e coloca o resultado na coluna C Next i End Sub ```
Nesse exemplo, a variável "lastRow" define a última célula preenchida da coluna A. Em seguida, um loop é usado para percorrer as linhas da coluna A e concatenar as células das colunas A e B usando o operador "&". O resultado é colocado na coluna C. Note que foi adicionado um espaço em branco entre as duas colunas usando o caractere " ".
Se você preferir usar a função "Concatenate", pode usar o seguinte código:
``` Sub concatenar_colunas()Dim lastRow As LonglastRow = Cells(Rows.Count, "A").End(xlUp).Row 'define a última célula preenchida da coluna A
For i = 1 To lastRowRange("C" & i).Value = Concatenate(Range("A" & i), " ", Range("B" & i)) 'concatena as colunas A e B e coloca o resultado na coluna C Next i End Sub ```
Nesse caso, a função "Concatenate" é usada para concatenar as células das colunas A e B, adicionando um espaço em branco entre elas. O resultado é colocado na coluna C. Note que a função "Concatenate" pode receber mais de dois argumentos, permitindo concatenar várias células.