Cześć,
Jako laik w kwestii VBA muszę się zwrócić z prośbą o pomoc.
Chcę napisać makro, które będzie łączyć komórki z identycznymi wartościami w sąsiadujących ze sobą kolumnach, a następnie środkować ich zawartość.
O ile coś podobnego udało mi się napisać dla łączenia komórek w tej samej kolumnie (czyli z różnych wierszy), to nie wiem jak się za to zabrać w przypadku różnych kolumn.
Poniżej kod. Ma ktoś pomysł jak się za to zabrać?
Code:
Sub MergeCells()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim rngMerge As Range, cell As Range
Set rngMerge = Range("Q3:Q150,K3:K150,A3:A150") 'Set the range limits here
MergeAgain:
For Each cell In rngMerge
If cell.Value = cell.Offset(1, 0).Value And IsEmpty(cell) = False Then
Range(cell, cell.Offset(1, 0)).Merge
GoTo MergeAgain
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Z góry dzięki za pomoc