Converte uma coluna B em uma lista separada por vírgula, “ORDER BY” Colum A

0

tentando começar com o VB no excel só precisa entender como funciona, essa tarefa pode ser feita em SQL, mas eu realmente quero saber como pode ser fácil fazer no excel coluna A contém números pares, modelos da coluna b necessidade na coluna Um registro de número de peça único, e na coluna b, lista separada por vírgulas de modelos em que esta peça pode ser encaixada.

Column A     Column B
B00002455    C50EKB
B00002455    C50EKS
B00002455    C50EKW
B00002456    C50EKX
B00002456    C50ELB

Procurando resultado -

ColumA        ColumnB 
B00002455     C50EKB, C50EKS, C50EKW 
B00002456     C50EKX,C50ELB
    
por Mohiko 23.11.2015 / 17:18

1 resposta

0

Isso deve acontecer, se eles estiverem em ordem. Se não estiverem, filtre a coluna A.

Sub test()
Dim lastrow As Integer
lastrow = Cells(Rows.Count, "A").End(xlUp).Row

Dim i As Integer

For i = lastrow To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Cells(i - 1, 2) = Cells(i - 1, 2) & ", " & Cells(i, 2)
        Rows(i).EntireRow.Delete
    End If

Next

End Sub

Se eles não estão em ordem e você não quer filtrar, você vai precisar de um dicionário, eu acho.

    
por 23.11.2015 / 17:34