Здравствуйте уважаемые знатоки Excel!
Прошу помочь!
Хотелось, чтобы объединялись ячейки с одинаковыми значениями, за исключением пустых ячеек.
Нашла код в интернете, но он с объединением пустых ячеек.
Прошу помочь!
Хотелось, чтобы объединялись ячейки с одинаковыми значениями, за исключением пустых ячеек.
Нашла код в интернете, но он с объединением пустых ячеек.
Код |
---|
Sub JoinDoubles() Dim i As Long Application.DisplayAlerts = False For i = Selection.Rows.Count To 2 Step -1 If Selection.Cells(i, 1) = Selection.Cells(i - 1, 1) Then Range(Selection.Cells(i - 1, 1), Selection.Cells(i, 1)).Merge End If Next Selection.VerticalAlignment = xlVAlignCenter Application.DisplayAlerts = True End Sub |