Zusammenführen von Spalten basierend auf dem spezifischen Wert

Ich arbeite an einem Excel-Blatt, in dem ich Zellen basierend auf der Fahrzeugnummer zusammenführen muss. Wenn es die gleiche Fahrzeugnummer in zwei oder mehr aufeinander folgenden Zellen gibt, muss ich die Zellen rechts von der Fahrzeugnummer zusammenführen. Ich habe eine riesige Datei, die 200 etwas Fahrzeugnummern enthält. Das Zusammenführen von Zellen für jedes Fahrzeug ist daher eine zeitaufwendige Aufgabe. Gibt es eine Möglichkeit, dies zu vereinfachen? Ich habe einen Screenshot meiner Excel-Tabelle angehängt.

Bildschirmfoto

Ich möchte Ihnen den VBA-Code vorschlagen, um Ihr Ziel zu erreichen, da dies die beste und einfachste Methode für die Anwendung ist.

Sie können den unten beschriebenen VBA-Code verwenden, um benachbarte Zellen in der rechten Spalte zusammenzuführen, wenn die Werte links davon doppelt vorhanden sind.

Überprüfen Sie den Screenshot:

Sub MergeSameCell()

Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "Merge Cells In Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 2), Rng.Cells(j - 1, 2)).Merge
        WorkRng.Parent.Range(Rng.Cells(i, 3), Rng.Cells(j - 1, 3)).Merge
        WorkRng.Parent.Range(Rng.Cells(i, 4), Rng.Cells(j - 1, 4)).Merge
        i = j - 1

    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

So verwenden Sie den Code:

• Halten Sie die Tastenkombination ALT + F11 gedrückt, und das Microsoft Visual Basic für Applikationen-Fenster wird geöffnet.
• Klicken Sie auf Einfügen, dann auf Modul, und fügen Sie den Code ein.
• Führen Sie das Makro aus.
• Wenn das Eingabefeld angezeigt wird, wählen Sie den Datenbereich aus, in dem doppelte Werte verfügbar sind.
• Beenden Sie mit ok.

Du erledigst die Arbeit.