Macro para concatenar na segunda coluna itens iguais na primeira coluna.

Essa Macro em VBA permite que você concatene itens na COLUNA B que sejam IGUAIS na COLUNA A.



Sub Concatena_COL_A_iguais_na_COL_B()

For vLin = 2 To 1660 ' numero maximo de linhas

If (Range("A" & CStr(vLin)).Text = Range("A" & CStr(vLin + 1)).Text) Then

Range("B" & CStr(vLin)) = Range("B" & CStr(vLin)) + " " + Range("B" & CStr(vLin + 1))
Rows(vLin + 1).Select
Selection.Delete Shift:=xlUp
vLin = vLin - 1
End If

Next vLin

    Range("A4").Select
End Sub

Exemplo:

HOSTDB	Hard disk 1
HOSTDB	Hard disk 2
HOSTDB	Hard disk 3

HOST1
HOST2

SERVER01	Hard disk 2
SERVER01	Hard disk 1

Tem que ficar assim:

HOSTDB	Hard disk 1  Hard disk 2 Hard disk 3
HOST1
HOST2
SERVER01	Hard disk 2 Hard disk 1