Wie verkette ich Zellen, wenn derselbe Wert in einer anderen Spalte in Excel vorhanden ist?
Wie im folgenden Screenshot gezeigt, gibt es mehrere Methoden, die Sie verwenden können, wenn Sie Zellen in der zweiten Spalte basierend auf denselben Werten in der ersten Spalte verketten möchten. In diesem Artikel stellen wir drei Möglichkeiten vor, um diese Aufgabe zu erfüllen.
Verketten Sie Zellen bei gleichem Wert mit Formeln und Filter
Die folgenden Formeln helfen, die Inhalte der entsprechenden Zellen in einer Spalte basierend auf demselben Wert in einer anderen Spalte zu verketten.
1. Wählen Sie eine leere Zelle neben der zweiten Spalte aus (hier wählen wir Zelle C2 aus), geben Sie die Formel ein = IF (A2 A1, B2, C1 & "," & B2) in die Formelleiste und drücken Sie dann die Enter Key.
2. Wählen Sie dann Zelle C2 aus und ziehen Sie den Füllgriff nach unten zu den Zellen, die Sie verketten müssen.
3. Formel eingeben = IF (A2 A3, CONCATENATE (A2, C2, CXNUMX),) in Zelle D2 und ziehen Sie den Füllgriff nach unten in die restlichen Zellen.
4. Wählen Sie Zelle D1 aus und klicken Sie auf Datum > Filter. Siehe Screenshot:
5. Klicken Sie auf den Dropdown-Pfeil in Zelle D1 und deaktivieren Sie das Kontrollkästchen (Leerzeichen) Feld, und klicken Sie dann auf OK .
Sie können sehen, dass die Zellen verkettet sind, wenn die ersten Spaltenwerte gleich sind.
Note: Um die obigen Formeln erfolgreich zu verwenden, müssen dieselben Werte in Spalte A fortlaufend sein.
Verketten Sie Zellen einfach, wenn Sie denselben Wert mit Kutools for Excel haben (mehrere Klicks).
Das oben beschriebene Verfahren erfordert das Erstellen von zwei Hilfsspalten und umfasst mehrere Schritte, was unbequem sein kann. Wenn Sie nach einem einfacheren Weg suchen, sollten Sie die Verwendung von in Betracht ziehen Erweiterte Zeilen kombinieren Werkzeug aus Kutools for Excel. Mit nur wenigen Klicks können Sie mit diesem Dienstprogramm Zellen mit einem bestimmten Trennzeichen verketten, was den Vorgang schnell und problemlos macht.
Tipp: Bevor Sie dieses Tool anwenden, installieren Sie es bitte Kutools for Excel zuerst. Gehen Sie jetzt zum kostenlosen Download.
- Wählen Sie den Bereich aus, den Sie verketten möchten;
- Stellen Sie die Spalte mit den gleichen Werten wie die ein Primärschlüssel Spalte.
- Geben Sie ein Trennzeichen an, um die Zellen zu kombinieren.
- Klicken Sie auf Kostenlos erhalten und dann auf Installieren. OK.
Ergebnis
- Um diese Funktion anzuwenden, bitte Laden Sie Kutools für Excel herunter und installieren Sie es zuerst.
- Um mehr über diese Funktion zu erfahren, werfen Sie einen Blick auf diesen Artikel: Kombinieren Sie schnell dieselben Werte oder duplizieren Sie Zeilen in Excel
Verketten Sie Zellen bei gleichem Wert mit VBA-Code
Sie können auch VBA-Code verwenden, um Zellen in einer Spalte zu verketten, wenn derselbe Wert in einer anderen Spalte vorhanden ist.
1. Drücken Sie Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic-Anwendungen Fenster.
2. In dem Microsoft Visual Basic-Anwendungen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in den Code ein Modul Fenster.
VBA-Code: Verketten Sie Zellen mit denselben Werten
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
Notizen:
3. Drücken Sie die Taste F5 Wenn Sie den Code ausführen, um den Code auszuführen, erhalten Sie die verketteten Ergebnisse im angegebenen Bereich.
Verketten Sie Zellen bei gleichem Wert problemlos mit Kutools for Excel
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!