Come concatenare le celle se lo stesso valore esiste in un'altra colonna in Excel?
Come mostrato nello screenshot qui sotto, se vuoi concatenare le celle nella seconda colonna in base agli stessi valori nella prima colonna, ci sono diversi metodi che puoi usare. In questo articolo, introdurremo tre modi per eseguire questa operazione.
Celle concatenate se lo stesso valore con formule e filtro
Le seguenti formule aiutano a concatenare il contenuto delle celle corrispondenti in una colonna in base allo stesso valore in un'altra colonna.
1. Seleziona una cella vuota oltre alla seconda colonna (qui selezioniamo la cella C2), inserisci la formula = SE (A2 <> A1, B2, C1 & "," e B2) nella barra della formula, quindi premere il pulsante entrare chiave.
2. Quindi selezionare la cella C2 e trascinare la maniglia di riempimento verso il basso sulle celle che è necessario concatenare.
3. Immettere la formula = SE (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") nella cella D2 e trascina la maniglia di riempimento verso il basso sulle celle rimanenti.
4. Selezionare la cella D1 e fare clic Dati > Filtro. Vedi screenshot:
5. Fare clic sulla freccia a discesa nella cella D1, deselezionare il (Spazi vuoti) casella, quindi fare clic su OK pulsante.
Puoi vedere che le celle sono concatenate se i valori della prima colonna sono gli stessi.
Note:: Per utilizzare correttamente le formule di cui sopra, gli stessi valori nella colonna A devono essere continui.
Concatena facilmente le celle se lo stesso valore con Kutools per Excel (diversi clic)
Il metodo sopra descritto richiede la creazione di due colonne helper e comporta più passaggi, che potrebbero risultare scomodi. Se stai cercando un modo più semplice, considera l'utilizzo di Combina righe avanzate utensile dal Kutools for Excel. Con pochi clic, questa utility ti consente di concatenare le celle utilizzando un delimitatore specifico, rendendo il processo rapido e senza problemi.
Consiglio: Prima di applicare questo strumento, installare Kutools for Excel in primo luogo. Vai al download gratuito ora.
- Seleziona l'intervallo che desideri concatenare;
- Imposta la colonna con gli stessi valori di Chiave primaria colonna.
- Specificare un separatore per unire le celle.
- Clicchi OK.
Risultato
- Per applicare questa funzione, per favore scarica e installa Kutools per Excel prima.
- Per saperne di più su questa funzione, dai un'occhiata a questo articolo: Combina rapidamente gli stessi valori o le righe duplicate in Excel
Celle concatenate se lo stesso valore con codice VBA
È inoltre possibile utilizzare il codice VBA per concatenare le celle in una colonna se lo stesso valore esiste in un'altra colonna.
1. Stampa altro + F11 chiavi per aprire il Applicazioni Microsoft Visual Basic finestra.
2. Nel Applicazioni Microsoft Visual Basic finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice sottostante nel file Moduli finestra.
Codice VBA: concatena le celle se gli stessi valori
Sub ConcatenateCellsIfSameValues()
Dim xCol As New Collection
Dim xSrc As Variant
Dim xRes() As Variant
Dim I As Long
Dim J As Long
Dim xRg As Range
xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
Set xRg = Range("D1")
On Error Resume Next
For I = 2 To UBound(xSrc)
xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Next I
On Error GoTo 0
ReDim xRes(1 To xCol.Count + 1, 1 To 2)
xRes(1, 1) = "No"
xRes(1, 2) = "Combined Color"
For I = 1 To xCol.Count
xRes(I + 1, 1) = xCol(I)
For J = 2 To UBound(xSrc)
If xSrc(J, 1) = xRes(I + 1, 1) Then
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
End If
Next J
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Next I
Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
End Sub
Note:
3. premi il F5 chiave per eseguire il codice, quindi otterrai i risultati concatenati nell'intervallo specificato.
Concatena facilmente le celle se lo stesso valore con 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!