Cum se concatenează celulele dacă există aceeași valoare într-o altă coloană din Excel?
După cum se arată în captura de ecran de mai jos, dacă doriți să concatenați celulele din a doua coloană pe baza acelorași valori din prima coloană, există mai multe metode pe care le puteți utiliza. În acest articol, vom prezenta trei moduri de a îndeplini această sarcină.
Concatenați celulele dacă aceeași valoare cu formule și filtru
Următoarele formule ajută la concatenarea conținutului celulelor corespunzătoare dintr-o coloană pe baza aceleiași valori din altă coloană.
1. Selectați o celulă goală pe lângă a doua coloană (aici selectăm celula C2), introduceți formula = IF (A2 <> A1, B2, C1 & "," & B2) în bara de formule, apoi apăsați tasta Intrați cheie.
2. Apoi selectați celula C2 și trageți mânerul de umplere în jos în celulele pe care trebuie să le concatenați.
3. Introduceți formula = IF (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") în celula D2 și trageți Fill Handle în jos în celulele restante.
4. Selectați celula D1 și faceți clic pe Date > Filtru. Vedeți captura de ecran:
5. Faceți clic pe săgeata drop-down din celula D1, debifați (Goluri) , apoi faceți clic pe OK butonul.
Puteți vedea că celulele sunt concatenate dacă primele valori ale coloanei sunt aceleași.
notițe: Pentru a utiliza cu succes formulele de mai sus, aceleași valori din coloana A trebuie să fie continue.
Concatenează cu ușurință celulele dacă aceeași valoare cu Kutools pentru Excel (mai multe clicuri)
Metoda descrisă mai sus necesită crearea a două coloane de ajutor și implică mai mulți pași, care pot fi incomod. Dacă sunteți în căutarea unui mod mai simplu, luați în considerare utilizarea Rânduri combinate avansate instrument din Kutools pentru Excel. Cu doar câteva clicuri, acest utilitar vă permite să concatenați celule folosind un delimitator specific, făcând procesul rapid și fără probleme.
varful: Înainte de a aplica acest instrument, vă rugăm să instalați Kutools pentru Excel in primul rand. Accesați descărcarea gratuită acum.
- Selectați intervalul pe care doriți să îl concatenați;
- Setați coloana cu aceleași valori ca și Cheia principala coloana.
- Specificați un separator pentru a combina celulele.
- Clic OK.
Rezultat
- Pentru a aplica această caracteristică, vă rugăm descărcați și instalați Kutools pentru Excel mai întâi.
- Pentru a afla mai multe despre această funcție, aruncați o privire la acest articol: Combinați rapid aceleași valori sau dublați rânduri în Excel
Concatenează celulele dacă aceeași valoare cu codul VBA
De asemenea, puteți utiliza codul VBA pentru a concatena celulele într-o coloană dacă aceeași valoare există într-o altă coloană.
1. presa Alt + F11 tastele pentru a deschide Aplicații Microsoft Visual Basic fereastră.
2. În Aplicații Microsoft Visual Basic fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul de mai jos în Module fereastră.
Cod VBA: concatenează celulele dacă aceleași 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
notițe:
3. apasă pe F5 tasta pentru a rula codul, apoi veți obține rezultatele concatenate în intervalul specificat.
Concatenează cu ușurință celulele dacă aceeași valoare cu Kutools pentru Excel
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!