Jak na hromadné slučování buněk v Excelu

Ok, takže by som vložil do Excelu takéto makro, nastavil by som kurzor do stĺpca s bunkami, ktoré sa majú pospájať a spustil by som ho. Potom by som ho odtiaľ vyhodil:

Sub MergeCellsInActiveColumn()
    Dim aColumn As Range
    Dim aCell As Range
    Dim bCell As Range
    
    Set aColumn = Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns(ActiveCell.Column))

    If Not aColumn Is Nothing Then
        Set aCell = aColumn.Cells(1, 1)
        
        For Each bCell In aColumn.Cells
            If aCell.Value <> bCell.Offset(1).Value Then
                If (aCell.Address <> bCell.Address) Then
                    Range(aCell.Offset(1), bCell).ClearContents
                    Range(aCell, bCell).Merge
                End If
                
                Set aCell = bCell.Offset(1)
            End If
        Next bCell
    End If
End Sub

Makro spojí rovnaké susedné bunky v celom stĺpci, v ktorom sa práve nachádza kurzor. Pred spustením treba samozrejme zálohovať pôvodný dokument, keby to náhodou spravilo niečo iné, než si čakal.

Díky moc losi, tohle mi maximálně pomohlo a opravdu to dělá to čeho jsme chtěli původně docílit.

Máš mou velkou pochvalu a dík