Объединение каждых последующих 5 строк

Пользователь

Сообщений: 7 Регистрация: 28.02.2019

14.10.2019 16:35:01

Доброго времени суток!

Подскажите, пожалуйста, можно ли модернизировать данный код (см. ниже), что бы в столбце L не при выделенном диапазоне объединялись ячейки, а каждые последующие 5.
Например L4 L5 L6 L7 L8 в одну, далее L9 L10 L11 L12 L13 и тд.

Код

Код:
Sub Mergeto0neCell()
 Const sDELIM as String = vbNewLine
 Dim rCell As Range
 Dim sMergeStr As String
 If typeName(selection) <> "Range" Then Exit Sub
 With selection
   For Each rCell. in Cells
     sMergeStr = sMergeStr & sDELIM & rCell.Text
   Next rCell
   Application.DisplayAlerts = False
   .Merge Across:=False
   Application.DisplayAlerts = True
  .item(1).Value = mid(sMergeStr, 1 + Len(sDELIM))
End With
End Sub

Буду очень признателен за помощь!

Изменено: minihardik - 14.10.2019 16:35:59

Hellmaster

Пользователь

Сообщений: 208 Регистрация: 26.03.2019

14.10.2019 17:28:08

Код

Sub merge()
Application.DisplayAlerts = False
Dim lr As Long
Dim i As Long
lr = Sheets("Лист2").Cells(Rows.Count, 12).End(xlUp).Row
For i = 1 To lr Step 5
If i >= lr Then Exit Sub

  Range(Cells(i, 12), Cells(i + 4, 12)).merge
Next
Application.DisplayAlerts = True
End Sub

Изменено: Hellmaster - 14.10.2019 17:28:26