Verbinden von Zellen einer bestimmten Spalte, wenn gleich Wert

Brauche ich, um eine Schleife über alle Zeilen (außer meine header-Zeilen) und verbindet alle Zellen mit dem gleichen Wert in der gleichen Spalte. Bevor ich dies Tue ich bereits dafür gesorgt, dass die Spalte sortiert ist.
So habe ich einige setup wie diesem.

a b c d e
1 x x x x 
2 x x x x
2 x x x x
2 x x x x
3 x x x x
3 x x x x

Und müssen diese

a b c d e
1 x x x x 
2 x x x x
  x x x x
  x x x x
3 x x x x
  x x x x

Mit meinem code, den ich erzielt zum Zusammenführen von zwei gleichen Zellen. Stattdessen habe ich Zusammenführen müssen alle Zellen gleich.

Dim i As Long
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, 1) <> "" Then
        If Cells(i, 1) = Cells(i - 1, 1) Then
            Range(Cells(i, 1), Cells(i - 1, 1)).Merge
        End If
    End If
Next i
  • Es ist wichtig, dass der code fügt NUR die Zellen der spezifischen Spalte, und nicht alle Spalten des Blattes.
  • Dies sollte den trick tun... Sub MergeColumnA() Dim i As Long Dim myLastRow As Long Application.DisplayAlerts = False myLastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = myLastRow - 1 To 6 Step -1 If Cells(i + 1, 1) <> "" Then If Cells(i, 1) = Cells(i + 1, 1) Then Range(Cells(i, 1), Cells(i + 1, 1)).Merge End If Next i Application.DisplayAlerts = True End Sub
InformationsquelleAutor gco | 2015-05-10
  1. 2

    Diese Methode nicht verwenden, verbundene Zellen, aber erzielt den gleichen visuellen Effekt:

    Sagen, wir starten mit:

    Verbinden von Zellen einer bestimmten Spalte, wenn gleich Wert

    Ausführen dieses Makros:

    Sub HideDups()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = N To 3 Step -1
        With Cells(i, 1)
            If .Value = Cells(i - 1, 1).Value Then
                .Font.ColorIndex = 2
            End If
        End With
    Next i
End Sub

    produzieren dieses Ergebnis:

    Verbinden von Zellen einer bestimmten Spalte, wenn gleich Wert

    HINWEIS:

    Sich keine Zellen zusammengeführt. Dieser visuelle Effekt ist der gleiche, weil aufeinanderfolgende Duplikate in der gleichen Spalte sind "versteckt", indem er die Schriftfarbe die gleiche wie die Farbe des zellenhintergrunds.

    • Netter Ansatz. Ich Schätze. Macht Sinn, da die zusammengeführte Zellen verlieren etwas Art von Informationen, und schaffen viele Probleme für die Formatierung.
    • Ich benutze diese Methode, wenn ich einen Bericht erstellen müssen, die "aussieht" wie eine Pivot-Tabelle.
    • das ist genial und ich werde auf jeden Fall in der Zukunft. trotzdem, meine co-worker braucht zusammengeführte Zellen (siehe mein Kommentar in meiner Frage, für die Lösung).
    • Ich würde mindestens, diskutieren alternativen mit Ihrem co-worker.
    InformationsquelleAutor Gary's Student
  2. 1

    Ich weiß, dies ist ein Alter thread, aber ich brauchte etwas ähnliches. Hier ist, was ich kam mit. 

    Sub MergeLikeCells()

    Dim varTestVal As Variant
    Dim intRowCount As Integer
    Dim intAdjustment As Integer

    ActiveSheet.Range("A1").Select
    'Find like values in column A - Merge and Center Cells
    While Selection.Offset(1, 0).Value <> ""
     'If instead you have blanks in the column, change the prev statement to While Selection.Offset(1, 0).Value <> "." and add "." to the last 2 rows of the data
        intRowCount = 1
        varTestVal = Selection.Value
        While Selection.Offset(1, 0).Value = varTestVal
            intRowCount = intRowCount + 1
            Selection.Offset(1, 0).Select
            Selection.ClearContents
        Wend
        intAdjustment = (intRowCount * -1) + 1
        Selection.Offset(intAdjustment, 0).Select
        Selection.Resize(intRowCount, 1).Select
        With Selection
            .Merge
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
        Selection.Offset(1, 0).Resize(1, 1).Select
    Wend

End Sub
    InformationsquelleAutor tlemaster
Schreibe einen Kommentar