Combinazione di voci duplicate con dati univoci in Excel

Question

Ho un database Excel e sto cercando di evitare di combinare manualmente dati duplicati. Ho un sacco di elenchi che sono essenzialmente gli stessi a parte la colonna dei tag. Quello che mi piacerebbe averlo fare è combinare questi 5 elenchi in 1 elenco, rendendo le categorie un elenco separato da virgole in una singola cella.

trasformare questo

in questo

Esiste un modo per raggiungere questo? Il mio documento ha un paio di migliaia di annunci, quindi sto ovviamente cercando di evitare il percorso di modifica manuale. Sono un novizio di Excel, quindi qualsiasi mano che tiene o tutorial a cui potresti indirizzarmi sarebbe apprezzata.

Answer 1

Questo può essere fatto anche utilizzando le formule. Perché il mio esempio funzioni, i dati dovrebbero essere ordinati dalla prima colonna e ci dovrebbe essere una riga di intestazione.

Avresti bisogno di altre due colonne (C & D). Innanzitutto, aggiungi una formula che in sostanza dice di concatenare i dati nella colonna B se i dati nella colonna A sono gli stessi della riga sopra di esso, altrimenti ripristina la concatenazione. La colonna successiva conterrà una formula per identificare le concatenazioni finali in modo da poter ordinare in seguito.

Ecco come lo farei con annunci e le categorie nelle colonne A & B (ancora una volta, i dati dovrebbero essere ordinati per colonna A e non ci sarebbe bisogno di essere una riga di intestazione):

Ecco i risultati. Ora vorrei copiare l'intero intervallo e incollare i valori su un altro foglio. Le righe con zero per la colonna D sono quelle che vorrei utilizzare. Ordinamento per colonna D li fluttuerebbe verso l'alto.

Answer 2

Questo (dovrebbe) generare un nuovo foglio dal foglio sorgente con i duplicati concatenati.

Per utilizzare il seguente codice è necessario aggiungere a un nuovo modulo nel VBA Editor

Una scorciatoia per aprire l'editor VBA è Alt+F11 (per Windows) e Alt+Fn+F11 (per Mac)

volta l'Editor è aperto aggiungi un nuovo modulo selezionandolo dal menu "inserisci" nella barra dei menu principale. Dovrebbe automaticamente aprire il modulo pronto ad accettare il codice, se non è necessario selezionarlo (sarà chiamato "ModuleN" dove N è il prossimo numero disponibile) dal project explorer.

Non sono sicuro che lo "Scripting.Dictionary" sia disponibile in osx, ma non mi fa male provare.

Option Explicit 

Sub Main() 
Dim Source As Worksheet: Set Source = ThisWorkbook.Worksheets("Sheet1") 
Dim Destination As Worksheet: Set Destination = ThisWorkbook.Worksheets("Sheet2") 

Dim Records As Object: Set Records = CreateObject("Scripting.Dictionary") 

Dim Data As Variant 
Dim Index As Long 
Dim Row As Integer: Row = 1 

Data = Source.Range("A1", "B" & Source.Rows(Source.UsedRange.Rows.Count).Row).Value2 

For Index = LBound(Data, 1) To UBound(Data, 1) 
    If Records.Exists(Data(Index, 1)) Then 
     Destination.Cells(Records(Data(Index, 1)), 2).Value2 = Destination.Cells(Records(Data(Index, 1)), 2).Value2 & ", " & Data(Index, 2) 
    Else 
     Records.Add Data(Index, 1), Row 
     Destination.Cells(Row, 1).Value2 = Data(Index, 1) 
     Destination.Cells(Row, 2).Value2 = Data(Index, 2) 
     Row = Row + 1 
    End If 
Next Index 

Set Records = Nothing 

End Sub