Wie Duplikate auf derselben Zeile in Excel für eine bestimmte Menge von Spalten

Question

Picture example of aligning needed

Hallo, ausrichten, ich brauche Hilfe Duplikate auf der gleichen Reihe auszurichten, aber es über ein paar Spalten auf jeder Seite dieser Haupt Spalten erstrecken. So müssen zum Beispiel A und K verglichen werden, um auf der gleichen Reihe auszurichten, aber Spalten auf jeder Seite von A & K müssen mit ihm bewegt werden zB Spalte AI und K- Q müssen sich zusammen bewegen, basierend auf Duplikaten in Spalte A und K Ein Beispiel von dem, was ich will, ist im Bild gezeigt.

Der folgende Code enthält keinen Code zum Einfügen einer Zeile nach jeder neu ausgerichteten doppelten Gruppe ... bitte können Sie mit welchem ​​Code helfen, nach jeder Gruppe von Duplikaten eine Leerzeile einzufügen? - Im Bild oben dargestellt.

Der Code ist unten: Funktioniert das?

Sub HighlightDups() 
    Dim i, LastRowA, LastRowB 
    LastRowA = Range("A" & Rows.Count).End(xlUp).Row 
    LastRowB = Range("K" & Rows.Count).End(xlUp).Row 
    Columns("A:I").Interior.ColorIndex = xlNone 
    Columns("K:Q").Interior.ColorIndex = xlNone 
    For i = 1 To LastRowA 
     If Application.CountIf(Range("K:Q"), Cells(i, "A")) > 0 Then 
      Cells(i, "A").Interior.ColorIndex = 36 
     End If 
    Next 
    For i = 1 To LastRowB 
     If Application.CountIf(Range("A:I"), Cells(i, "K")) > 0 Then 
      Cells(i, "K").Interior.ColorIndex = 36 
     End If 
    Next 
End Sub 

Answer 1

Try Code unten

Sub TEST() 
    I = 1 
    While I <= Cells(Rows.Count, 1).End(xlUp).Row And I <= Cells(Rows.Count, 2).End(xlUp).Row 
     If Range("A" & I) > Range("B" & I) Then 
      Range("A" & I).Insert xlShiftDown 
     ElseIf Range("A" & I) < Range("B" & I) Then 
      Range("B" & I).Insert xlShiftDown 
     Else 
      If I > 1 Then 
       If Range("A" & I - 1) <> Range("A" & I) And Range("B" & I - 1) <> Range("B" & I) Then 
        Range("A" & I, "B" & I).Insert xlShiftDown 
        I = I + 1 
       End If 
      End If 
     End If 
     I = I + 1 
    Wend 
End Sub 

Und über die Farbe, Sie Conditional Format nur die, die Farbe, die nicht leer