Come concatenare valori univoci in Excel?
Se ho un lungo elenco di valori che è stato popolato con alcuni dati duplicati, ora voglio trovare solo i valori univoci e quindi concatenarli in una singola cella. Come posso affrontare questo problema rapidamente e facilmente in Excel?
Trova valori univoci in una colonna e concatenali in una cella con codice VBA
Trova valori univoci in una colonna e concatenali in una cella con Kutools per Excel
Elenca valori univoci e concatena i valori corrispondenti con il codice VBA
Elenca valori univoci e concatena i valori corrispondenti con Kutools per Excel
Trova valori univoci in una colonna e concatenali in una cella con codice VBA
Le seguenti Funzione definita dall'utente può aiutarti a concatenare solo i valori univoci in una singola cella da un elenco, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: concatena valori univoci in una singola cella:
Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
Dim xCell As Range
Dim xDic As Object
Set xDic = CreateObject("Scripting.Dictionary")
For Each xCell In xRg
xDic(xCell.Value) = Empty
Next
ConcatUniq = Join$(xDic.Keys, xChar)
Set xDic = Nothing
End Function
3. Quindi torna al tuo foglio di lavoro e inserisci questa formula: = ConcatUniq (A1: A17, ",") in una cella vuota in cui si desidera visualizzare il risultato concatenato e premere entrare chiave per ottenere il risultato concatenato univoco, vedi screenshot:
Note:: Nella formula sopra, A1: A17 è l'intervallo di celle che desideri concatenare e la virgola ","È il separatore di cui hai bisogno per separare i valori combinati, puoi cambiarli secondo le tue necessità.
Trova valori univoci in una colonna e concatenali in una cella con Kutools per Excel
Se non hai familiarità con il codice VBA, Kutools for Excel può anche aiutarti, puoi combinare il file Seleziona Celle duplicate e uniche ed Combinare utilità per ottenere il risultato di cui hai bisogno.
Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, per favore fai come segue :( Scarica subito Kutools per Excel! )
1. Seleziona l'elenco di celle in cui desideri combinare solo i valori univoci.
2. Clic Kutools > Seleziona > Seleziona Celle duplicate e uniche, vedi screenshot:
3. Nel Seleziona Celle duplicate e uniche finestra di dialogo, selezionare Tutti unici (compresi i primi duplicati) opzione sotto il Regola sezione, vedi screenshot:
Suggerimenti:: Se desideri combinare i valori univoci escludendo il primo duplicato che appare, seleziona Solo valori univoci opzione.
4. Quindi fare clic OK e sono stati selezionati solo i valori univoci, quindi premere Ctrl + C per copiarli e incollarli in una posizione specifica premendo Ctrl + V, vedi screenshot:
5. Seleziona le celle univoche incollate e quindi fai clic su Kutools > Unisci e dividi > Combina righe, colonne o celle senza perdere dati, vedi screenshot:
6. Nel Combina colonne o righe finestra di dialogo, scegliere Combina in una singola cella sotto il Per combinare le celle selezionate in base alle seguenti opzioni, quindi specifica un separatore per i dati combinati, vedi screenshot:
7. Quindi fare clic Ok or APPLICA pulsante, i valori univoci estratti sono stati concatenati in una singola cella come mostrato nella seguente schermata:
Scarica subito Kutools per Excel!
Elenca valori univoci e concatena i valori corrispondenti con il codice VBA
In un altro caso, hai un intervallo di dati che include due colonne e ora, vuoi elencare solo i valori univoci e concatenare i valori corrispondenti di un'altra colonna per ottenere il seguente risultato, hai qualche buon modo per finire questo lavoro in Excel?
Qui puoi applicare il seguente codice VBA per gestire questo lavoro, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: elenca valori univoci e concatena i dati corrispondenti
Sub test()
'updateby Extendoffice
Dim xRg As Range
Dim xArr As Variant
Dim xCell As Range
Dim xTxt As String
Dim I As Long
Dim xDic As Object
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Does not support multiple selections", , "Kutools for Excel"
Exit Sub
End If
If xRg.Columns.Count <> 2 Then
MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
Exit Sub
End If
xArr = xRg
Set xDic = CreateObject("Scripting.Dictionary")
xDic.CompareMode = 1
For I = 1 To UBound(xArr)
If Not xDic.Exists(xArr(I, 1)) Then
xDic.Item(xArr(I, 1)) = xDic.Count + 1
xArr(xDic.Count, 1) = xArr(I, 1)
xArr(xDic.Count, 2) = xArr(I, 2)
Else
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub
3. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri concatenare in base ai valori univoci, vedi screenshot:
4. Clic OK, i valori univoci sono stati estratti ei valori corrispondenti in un'altra colonna sono stati concatenati insieme in un nuovo foglio di lavoro.
Note:: Nel codice sopra, puoi cambiare la virgola rossa xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) in questo script a qualsiasi altro delimitatore che desideri separare i dati combinati.
Elenca valori univoci e concatena i valori corrispondenti con Kutools per Excel
Se si dispone di Kutools for Excel, Con la sua Combina righe avanzate caratteristica, puoi risolvere questo problema rapidamente e facilmente senza alcun codice.
Dopo l'installazione Kutools for Excel, per favore fai come segue :( Scarica subito Kutools per Excel! )
1. Innanzitutto, dovresti fare una copia dei tuoi dati originali se vuoi conservare i dati originali. Quindi seleziona l'intervallo di dati che desideri concatenare in base ai valori univoci.
2. Quindi fare clic Kutools > Unisci e dividi > Combina righe avanzate, vedi screenshot:
3. Nel Combina righe avanzate finestra di dialogo, fare clic sul nome della colonna in cui si desidera elencare solo i valori univoci e fare clic su Chiave primaria, vedi screenshot:
4. Quindi fare clic su un altro nome di colonna che si desidera concatenare e fare clic Combinaree scegli un delimitatore per separare i dati combinati, vedi screenshot:
5. E poi clicca Ok pulsante, i valori sono stati concatenati in base ai valori univoci di un'altra colonna come mostrato nella seguente schermata:
Scarica subito Kutools per Excel!
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!