Ich möchte Ihnen den VBA-Code vorschlagen, um Ihr Ziel zu erreichen, da dies die beste und einfachste Methode ist, die angewendet werden kann.
Sie können den unten beschriebenen VBA-Code verwenden, um benachbarte Zellen in der rechten Spalte zusammenzuführen, wenn die Werte, die für sie übrig bleiben, 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 ALT + F11-Tasten gedrückt, und es öffnet sich das Microsoft Visual Basic für Applikationen-Fenster.
- 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.
- Fertig mit ok.
Sie erledigen die Arbeit.