Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registratevi
x

or

Come concatenare valori univoci in Excel?

Se ho una lunga lista di valori popolati con alcuni dati duplicati, ora voglio trovare solo i valori univoci e poi 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 il codice VBA

Trova valori univoci in una colonna e concatenali in una cella con Kutools per Excel

Elenca i valori univoci e concatena i valori corrispondenti con il codice VBA

Elenca valori univoci e concatena i valori corrispondenti con Kutools per Excel


freccia blu bolla destra Trova valori univoci in una colonna e concatenali in una cella con il codice VBA


Le seguenti Funzione definita dall'utente può aiutarti a concatenare solo i valori unici in una singola cella da una lista, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nel Modulo Finestra.

Codice VBA: concatena i valori univoci in una singola cella:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice 20151228
    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 foglio di lavoro e inserisci questa formula: = ConcatUniq (A1: A17, ",") in una cella vuota in cui si desidera generare il risultato concatenato e premere entrare chiave per ottenere il risultato unico concatenato, vedi screenshot:

doc concatena gli uni e gli altri 1

Note: Nella formula sopra, A1: A17 è l'intervallo di celle che si desidera concatenare e la virgola ","È il separatore di cui hai bisogno per separare i valori combinati, puoi cambiarli secondo le tue necessità.


freccia blu bolla destra 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 Seleziona celle duplicate e uniche e Combinare utilità per raggiungere il risultato che ti serve.

Kutools for Excel : con più di 300 pratici componenti aggiuntivi di Excel, liberi di provare senza limiti nei giorni 60.

Dopo l'installazione Kutools for Excel, si prega di fare come segue :( Scarica subito Kutools per Excel! )

1. Selezionare l'elenco di celle che si desidera combinare solo i valori univoci.

2. Clic Kutools > Seleziona > Seleziona celle duplicate e uniche, vedi screenshot:

doc concatena gli uni e gli altri 2

3. Nel Seleziona celle duplicate e uniche finestra di dialogo, selezionare Tutto unico (compresi i duplicati di 1 st) opzione sotto il Regola sezione, vedi screenshot:

Suggerimenti: Se si desidera combinare i valori univoci escluso il primo duplicato visualizzato, controllare Solo valori unici opzione.

doc concatena gli uni e gli altri 3

4. Quindi fare clic OK pulsante, 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:

doc concatena gli uni e gli altri 4

5. Selezionare le celle univoche incollate, quindi fare clic Kutools > Combinare, vedi screenshot:

doc concatena gli uni e gli altri 5

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 opzionie quindi specificare un separatore per i dati combinati, vedere screenshot:

doc concatena gli uni e gli altri 6

7. Quindi fare clic Ok or Applicare pulsante, i valori unici estratti sono stati concatenati in una singola cella come mostrato nella seguente schermata:

doc concatena gli uni e gli altri 7

Scarica subito Kutools per Excel!


freccia blu bolla destra Elenca i 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 loro valori corrispondenti di un'altra colonna per ottenere il seguente risultato, hai qualche buon modo per finire questo lavoro in Excel?

doc concatena gli uni e gli altri 8

Qui puoi applicare il seguente codice VBA per affrontare questo lavoro, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nel Modulo Finestra.

Codice VBA: elenca valori univoci e concatena dati corrispondenti

Sub test()
'updateby Extendoffice 20151228
    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 prompt per ricordare all'utente selezionare l'intervallo di dati che si desidera concatenare in base ai valori univoci, vedere screenshot:

doc concatena gli uni e gli altri 9

4. Clic OK, i valori univoci sono stati estratti e i loro 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) e ","& xArr (I, 2) in questo script per qualsiasi altro delimitatore che si desidera separare i dati combinati.


freccia blu bolla destra 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, è possibile risolvere questo problema rapidamente e facilmente senza alcun codice.

Dopo l'installazione Kutools for Excel, si prega di fare come segue :( Scarica subito Kutools per Excel! )

1. Innanzitutto, dovresti fare una copia dei tuoi dati originali se vuoi conservare i dati originali. Quindi selezionare l'intervallo di dati che si desidera concatenare in base ai valori univoci.

2. Quindi fare clic Kutools > Contenuti > Combina righe avanzate, vedi screenshot:

doc concatena gli uni e gli altri 10

3. Nel Combina righe avanzate finestra di dialogo, fare clic sul nome della colonna che si desidera elencare solo i valori univoci e fare clic su Chiave primaria, vedi screenshot:

doc concatena gli uni e gli altri 11

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:

doc concatena gli uni e gli altri 12

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:

doc concatena gli uni e gli altri 13

Scarica subito Kutools per Excel!


Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 30-day.
kte tab 201905

Scheda Office Porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MSBrown · 2 years ago
    I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
  • To post as a guest, your comment is unpublished.
    Marek · 2 years ago
    Thank you! Great and simple function works perfect for me!

    https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1